— 

r  ao-auo  im 

UNCLASSIFIED 

AIR  FORCE  INST  OF  TECH  WRXOHT-PATTERSON 
DCS ION  ANO  ANALYSIS  OF  A  MULTI VAR I ABLE * 
DEC  81  D  S  PORTER 

AFIT/8E/EE/81D-48 

AFB  ON  SCHOO— ETC  F/6  1/3 

DX8XTAL  CONTROLLER  FOR  — CTC<U> 

NL 

fl 

! 

1  ■ 

■ 

I 

ll 

i 

1 

l 

UNITED  STATES  AIR  FORCE 
AIR  UNIVERSITY 

AIR  FORCE  INSTITUTE  OF  TECHNOLOGY  /]rVT«|^ 

Wright-Pattorson  Air  Fore*  Boto, Ohio  LJ  1  1 

g^ELECTF 

%  *U61  1«8? 


|  This  document  has  been  approved 
lor  public  release  and  sale;  to 
distribution  is  * 


82  08  11  <>4& 


afit  /ge/ee  / sid-48 


O 


DESIGN  AND  ANALYSIS  OP  A 
MULT IVARIABIE ,  DIGITAL  CONTROUER 
FOR  THE  A-7D  DIGITAC  II  AIRCRAFT 
AND  THE  DEVELOPMENT  OF 
AN  INTERACTIVE  COMPUTER  DESIQJ  PROGRAM 

THESIS 


AFH/GE^SE/81D-48  Douglas  S.  Porter 

Capt  USAF 


f  ^ 


i  : 


AFIT/GE/EE/ 81D-48 


EESIQN  AND  ANALYSIS  OF  A 
MJITIVARIABIE,  DIGITAL  CONTROLLER 
FOR  THE  A-7D  DIGITAC  II  AIRCRAFT 
AND  THE  DEVELOPMENT  OF 
AN  INTERACTIVE  COMPUTER  DESIGN  PROGRAM 


THESIS 


Presented  to  the  Faculty  of  the  School  of  Engineering 
of  the  Air  Force  Institute  of  Technology 
Air  University 

in  Partial  Fulfillment  of  the 


Requirements  for  the  Degree  of 


Master  of  Science 


by 

Douglas  S.  Porter,  B.  S. 
Capt  USAF 

Graduate  Engineering 
December  1981 


Preface 


This  thesis  topic  was  suggested  and  sponsored  by  Duane  P.  Robertus 
of  the  Flight  Dynamics  Laboratory,  Wright-Patterson  AFB,  Ohio.  The 
study  gave  me  much  insight  into  the  application  of  course  work  at  the 
Air  Force  Institute  of  Technology  in  aircraft  dynamics,  aircraft  flight 
control,  and  computer-aided  design  programs.  It  was  refreshing  to  be 
acquainted  with  up-and-coming  multivariable  design  techniques  for  air¬ 
craft  controller  design  and  to  be  able  to  generate  a  design  package 
for  future  Air  Force  Institue  of  Technology  students  and  Wright-Pat¬ 
terson  AFB  control  engineers,  who  may  be  involved  in  this  field. 

This  thesis  is  the  composite  of  unmeasurable  hours  of  work  and 
was  accomplished  in  association  with  two  fellow  Air  Force  Institute  of 
Technology  students.  Lt.  Randy  N.  Paschall  was  paramount  in  the  develop¬ 
ment  of  the  aircraft  control  derivatives  and  Lt.  Joe  S.  Smyth  assisted 
in  the  initial  development  of  the  computer  package.  Their  associate 
theses  make  use  of  the  computer-aided  design  program. 

It  would  not  have  been  possible  to  attempt  this  thesis  without  the 
cooperation  of  Professor  Brian  Porter  who  is  developing  multivariable 
design  theory,  under  USAF  contract,  at  the  University  of  Salford,  Eng¬ 
land.  My  unending  thanks  is  also  expressed  to  Professors  Constantine 
H.  Houpis  and  John  J.  D'Azzo  of  the  Department  of  Electrical  Engineering 
at  the  Air  Force  Institute  of  Technology,  who  gave  me  countless  hours 
of  their  time  during  the  thesis  development  and  suggested  many  altern¬ 
atives  which  guided  the  thesis  progress  and  writing.  I  also  wish  to 
acknowledge  committee  member,  Capt.  James  T.  Silverthom,  Department  of 
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Aeronautics  and  Astronautics,  Air  Force  Institute  of  Technology,  for 
his  suggestions  in  the  development  of  the  aircraft  equations  of  motion 
and  stability  derivatives. 

I  am  especially  thankful  to  Air  Force  Institute  of  Technology 
student,  Lt.  Eileen  W.  Bjorkman,  who  suggested  several  corrections  to 
the  many  versions  of  the  computer  program.  Acknowledgement  is  also 
tendered  to  the  personnel  of  the  ASD  Computer  Open  Shop,  Wright-Pat- 
terson  AFB,  Ohio. 

Finally,  I  wish  to  thank  my  fiance,  Lt.  Brenda  F.  Stone,  for  her 
patience  and  help  during  the  production  of  this  thesis.  And  to  my 
family  and  friends,  I  wish  to  express  my  gratitude  for  their  under¬ 
standing. 


Capt.  Douglas  S.  Porter 


Contents 

Page 

Preface . .  •  .  •  . . .  ii 

List  of  Figures  ...  .  ........  vi 

List  of  Tables .  viii 

Abstract . .  . . .  ix 

I.  Introduction  .........  .  1 

Background  . . 2 

Problem . 3 

Assumptions . 3 

Approach  .....  .  A 

Sequence  of  Presentation  .  4 

II.  A7-D  Aircraft  Models  .......  .  6 

Introduction  .....  .  .  .  6 

Aircraft  Description  ..  .  7 

System  Models .  7 

Aircraft  Equations  .  7 

Control  Derivatives  .  8 

Summary . . .  8 

III.  Multivariable  Digital  Control  Law  Theory  .  10 

Introduction . 10 

Unknown  Plants  .  11 

Regular  Plants  .  13 

Irregular  Plants  ...........  .  14 

Vector/Matrix  Range  Spaces  . . 15 

Summary  .  .....  15 

IV.  Development  of  the  MJLTI  Computer  Program .  17 

Introduction  .......  .  17 

Program  Requirements  .....  .  17 

Program  Design  Emphasis  ..........  .  18 

Design  Constraints  .....  .  .....  21 

Generalized  Matrix  Inverse  .  21 

Developmental  Problems  ......  .  22 

Summary  . . 24 


t 


iv 


Contents 


V.  MJLTI  Program  Structure  .  .  . 

Overlays . . . 

Data  Base  . 

Program  Control  Interface  .  ... 

Interfacing  Pattern  . 

Data  Access  and  Manipulation  .... 

Error  Detection  and  Recovery  . 

Summary . . . 

VI.  Control  law  Design . . 

Introduction  .............. 

Preliminary  Models  ........... 

Unknown  Plant . . 

Augmented  State  Equations  ........ 

Final  Model  .........  . 

Control  Law  Design  ......  . 

Robustness  .  ........ 

Failed  Control  Surfaces  . 

Control  Surface  Inputs  .  .  . 

Parameter  Variations  . 

Summary  .  .......... 

VII.  Conclusions  and  Recommendations  . 

Thesis  Summary  ............. 

Conclusions  ...  . 

Recommendations  ....  . 

Bibliography  .  .  . 

Appendix  As  User's  Manual  for  Program  MULTI  .  . 

Appendix  Bs  Programmer's  Manual  for  Program  MULTI 

Appendix  C:  MJLTI  Source  Listing  .  ... 

Vita . 


I 


v 


List  of  Figures 


Figure  Page 

1  MULTI  Structure  Chart  .  19 

2  Mach  0.18  Flight  Condition, 

Flight  Path  Angle  Command  .  44 

3  Mach  0.18  Flight  Condition, 

Flight  Path  Angle  Command  .  ...  45 

4  Mach  0.18  Flight  Condition, 

Flight  Path  Angle  Command  .  46 

5  Mach  0.18  Flight  Condition, 

Flight  Path  Angle  Command  . .  47 

6  Mach  0.18  Flight  Condition, 

Forward  Velocity  Command  .  48 

7  Mach  0.18  Flight  Condition, 

Pitch  Angle  Conmand  . .  49 

8  Mach  0.18  Flight  Condition, 

Sideslip  Angle  Conmand .  50 

9  Mach  0.18  Flight  Condition, 

Yaw  Rate  Command  . .  51 

10  Mach  0.18  Flight  Condition, 

Roll  Angle  Command . 52 

11  Multiple  Flight  Conditions, 

Flight  Path  Angle  Command  .  .  .  53 

12  Multiple  Flight  Conditions, 

Forward  Velocity  Command  .  54 

13  Multiple  Flight  Conditions, 

Roll  Angle  Command  .  55 

14  Mach  0.18  Flight  Condition, 

Flight  Path  Angle  Conmand  .  56 

15  Mach  0.18  Flight  Condition, 

Roll  Angle  Command  .....  .  57 

16  Mach  0.18  Flight  Condition, 

Roll  Angle  Conmand .  58 


vi 


Mach  0.18  Flight  Condition, 
Flight  Path  Angle  Command  . 

Mach  0.18  Flight  Condition, 
Flight  Path  Angle  Command  . 

Mach  0.18  Flignt  Condition, 
Yaw  Rate  Command  .  .  ... 

Mach  0.18  Flight  Condition, 
Fitch  Angle  Command  .  .  .  . 


Abstract 


This  thesis  investigates  a  singular  perturbation  method  in  the 
design  of  a  multivariable,  error-actuated  digital  tracking  controller 
for  the  Mach  0.18  flight  condition  of  the  A-7D  Digitac  II  aircraft. 
The  study  includes  the  development  of  a  computer-aided  design  package 
to  accomplish  the  control  law  design  and  simulation. 

The  aircraft  model  is  taken  from  an  associate  thesis  and  is  a 
six  degree-of-freedom  aircraft  model  that  contains  separate  left  and 
right  horizontal  stabilator  control  surfaces.  Thus,  the  equations  of 
motion  cannot  be  decoupled  for  the  design  of  the  control  laws. 

The  complete  design  process  used  to  obtain  a  tracker  control  law 
is  presented.  The  presentation  includes  a  discussion  of  the  robust¬ 
ness  of  the  control  law  when  it  is  used  for  the  same  aircraft  at 
various  flight  conditions.  The  effect  on  aircraft  stability  is  also 
shown  in  the  event  of  the  failure  of  the  right  horizontal  stabilator. 

The  thesis  concludes  that  tracker  control  laws  can  be  designed 
for  this  aircraft  model  of  interest,  but  additional  modification  of 
the  control  law  is  required  to  satisfy  the  robustness  and  reconfig¬ 
uration  requirements.  Also,  a  more  accurate  aircraft  model  should 
be  developed  to  provide  further  analysis. 

The  computer  design  and  simulation  package  is  available  for 
use  by  the  engineering  community. 
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EESIGN  AND  ANALYSIS  OF  A  MULTIVARIABLE,  DIGITAL  CONTROLLER 
FOR  THE  A-7D  DIGITAC  II  AIRCRAFT 
AND  THE  DEVELOPMENT  OF  AN  INTERACTIVE  COMRJTER  EESIGN  PROGRAM 


I  Introduction 

Many  modern  aircraft  make  use  of  small,  but  sophisticated,  digital 
computers.  One  very  important  application  is  in  the  area  of  computer¬ 
generated  signals  which  move  the  aircraft's  primary  flight  control  cur- 
faces.  As  a  result,  today's  newest  aircraft  are  designed  with  flight 
control  surfaces  which  are  ultimately  moved  by  electrical  signals  rather 
than  by  mechanical  linkages.  In  these  aircraft,  the  pilot  does  not 
have  direct  control  of  the  aircraft.  The  aircraft  unit  involved  is 
called  a  digital  flight  control  system  (DFCS). 

The  DFCS  is  programmed  with  the  control  laws  necessary  to  direct 
the  desired  aircraft  surface  movements.  The  control  laws  require  sat¬ 
isfactory  operation  of  each  element  in  the  control  loop.  Redundancy 
schemes  are  used  to  ensure  continued  operation  of  the  surfaces  during 
reasonable  system  failures.  If,  however,  a  primary  flight  control  sur¬ 
face  becomes  inoperative  or  missing  (due  to  combat  damage,  structural 
fatigue,  etc.),  the  control  laws  are  invalid  and  the  flight  control 
system  cannot  be  used  to  properly  control  the  aircraft.  The  control¬ 
lability  problem  is  increased  if  the  aircraft  is  statically  unstable, 
because  the  aircraft  may  quickly  increase  in  pitch  and  bank  (Ref  1). 

This  thesis  addresses  the  development  of  control  laws  for  a  DFCS. 
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The  first  chapter  presents  the  associated  background,  problem  state¬ 
ment,  assumptions,  approach,  and  sequence  of  presentation. 

Background 

There  have  been  many  steps  in  aircraft  flight  control  system  de¬ 
velopment.  A  major  step  occurred  when  analog  flight  control  systems 
were  replaced  with  DFCSs.  The  result  was  faster  reaction  to  input 
disturbances  and  increased  flexibility  in  control  surface  utilization 
(Ref  2).  Past  advancements  in  digital  technology  have  not  only  im¬ 
proved  the  computational  speed,  but  lowered  the  cost  for  digital  com¬ 
puters  used  in  flight  control  systems. 

The  A-7D  Digitac  II  aircraft  is  used  to  test  experimental  DFCSs. 

The  test  program  provides  a  technological  base  for  future  developments 
of  digital  and  multimode  flight  control  functions  (Ref  3s 2).  Current 
programs  involve  DFCSs  with  detection  and  isolation  capabilities  in 
the  event  of  the  failure  or  loss  of  an  aircraft  control  surface. 

In  the  event  of  a  severe  flight  control  surface  failure,  the 
closed-loop  flight  control  system  should  be  designed  to  detect  the 
surface  failure  and  direct  the  remaining  flight  control  surface  move¬ 
ments  so  as  to  restore  aircraft  stability  and  control  to  an  accept¬ 
able  level.  A  controllable  aircraft  is  required  so  the  pilot  can 
recover  the  aircraft  to  a  safe  ejection  attitude  or  fly  the  aircraft 
to  a  safe  landing  site. 

The  required  type  of  DFCS  is  based  on  reconfigurable,  multivari¬ 
able  tracker  control  laws.  Reconfiguration  implies  changing  from  normal 
operation  to  system  operation  based  on  control  laws  that  account  for 
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inoperative  surfaces.  The  term  "tracker”  means  that  flight  control  sur¬ 
face  movements  (outputs)  follow  pilot  stick  deflections  (inputs).  The 
word  "multivariable"  denotes  that  there  are  multiple  inputs  and  outputs. 

Problem 

The  Air  Force  Flight  Dynamics  Laboratory  is  presently  investigating 
digital,  reconf igurable ,  multivariable  tracker  control  laws  and  their 
applications.  A  topic  of  interest  is  the  development  of  a  robust  con¬ 
trol  law  which  accommodates  surface  failures  and  can  operate  in  an  air¬ 
craft  ' s  entire  range  of  flight  conditions .  The  control  law  should  also 
be  easy  to  develop. 

Consider  the  example  of  a  failure  or  loss  of  the  right  aileron  of 
an  aircraft.  In  this  case,  additional  forces  and  moments  are  generated 
that  are  not  normally  present.  Continued  aileron  commands  (to  the  left 
aileron)  would  produce  both  longitudinal  forces  and  lateral-directional 
commands.  A  multivariable  control  law  will  redistribute  the  aileron 
control  signals  to  other  primary  aircraft  surfaces  so  that  the  aircraft 
remains  controllable.  Of  course,  as  a  first  requirement,  the  control 
law  must  operate  under  normal  conditions  and  over  a  wide  range  of  flight 
conditions. 


Assumptions 

Lt.  David  W.  Potts  developed  stability  derivatives  and  an  aircraft 
model  for  the  A-7D  aircraft  in  a  previous  thesis  (Ref  3)»  The  A-7D 
Digitac  II  aircraft  model  is  used  in  this  study  and  is  assumed  to  be 
valid.  His  work  assumes  that:  (l)  flight  control  surfaces  can  be 
divided  into  independant  surfaces  (left  aileron,  right  aileron,  etc.) 


during  analysis  of  aircraft  forces  and  moments,  (2)  the  aircraft  makes 
only  small  perturbations  about  a  trimmed,  straight  and  level  flight 
condition,  and  (3)  the  aircraft  equations  of  motion  are  developed  using 
aircraft  stability  axes  (Ref  3*4).  These  assumptions,  which  are  re¬ 
tained,  are  needed  to  reduce  the  complexity  of  the  aircraft  system 
analysis. 

Approach 

The  object  of  this  thesis  is  to  investigate  the  development  of  a 
digital,  reconf igurable ,  multivariable  tracker  control  law  for  the  A-7D 
Digitac  II  aircraft  by  applying  the  design  techniques  proposed  by  Pro¬ 
fessor  Brian  Porter,  University  of  Salford,  England  (Refs  4;  5}  and  6). 
Professor  Porter  is  currently  under  U.  S.  Government  contract  continuing 
development  in  multivariable  control  law  theory.  The  study  of  this 
thesis  runs  parallel  to  the  thesis  development  by  Lt.  Randy  N.  Paschall 
(Ref  7),  in  that  the  aircraft  control  derivatives,  for  the  Mach  0.18, 
0.6,  and  0.8  flight  conditions,  are  developed  conjunctively. 

Specifically,  this  thesis  presents  the  development  of  a  control 
law  for  the  Mach  0.18  flight  condition.  In  addition,  the  presentation 
supplies  an  interactive  computer  program  for  the  design  and  simulation 
of  digital,  multivariable  control  laws  using  Professor  Porter's  tech¬ 
niques. 

Sequence  of  Presentation 

This  thesis  contains  seven  chapters.  Chapter  II  develops  the 
aircraft  model  and  references  Lt.  Paschall 's  thesis  for  the  aircraft 
equations  of  motion  and  stability  derivatives.  Chapter  III  summarizes 
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Professor  Porter's  multivariable  control  law  theory.  The  associated 
computer  program,  MJLTI,  is  introduced  in  Chapter  IV,  which  relates  the 
general  development  of  the  program}  Chapter  V  discusses  the  program's 
structure.  The  control  law  design  for  the  Mach  0.18  flight  condition 
is  given  in  Chapter  VI.  Chapter  VII  provides  the  results  and  conclu¬ 
sions  of  the  thesis,  suggests  further  projects  related  to  the  design 
methods,  and  presents  possible  modifications  and/or  additions  to  MJLTI. 


II  A7-D  Aircraft  Models 


Introduction 

The  models  for  this  thesis  are  based  upon  the  A-7D  aircraft  model 
developed  by  Lt.  David  W.  Potts  (Ref  3)«  The  Potts  model  was  modified 
to  account  for  changes  suggested  by  thesis  committee  member,  Capt. 

James  T.  Silverthorn  of  the  Department  of  Aeronautics  and  Astronautics 
at  the  Air  Force  Institute  of  Technology.  The  aircraft  model  has  six 
degrees  of  freedom  (D-O-F)  and  has  controls  which  are  divided  into 
separate  left  and  right  surfaces.  As  an  example,  although  the  hori¬ 
zontal  stabilizer  is  normally  considered  as  a  single  control  surface, 
the  model  of  this  thesis  identifies  it  as  divided  into  a  left  horizontal 
stabilizer  and  a  right  horizontal  stabilizer.  The  non-linear  six  D-O-F 
aircraft  equations  of  motion  are  linearized  about  a  nominal  operating 
point  to  provide  linear  aircraft  equations  for  the  study.  Three  models 
are  developed  which  include  a  landing  configuration  of  0.18  Mach  at 
2,000  feet,  a  medium  altitude  cruise  of  0.6  Mach  at  15*000  feet,  and 
a  high  altitude  cruise  of  0.8  Mach  at  35*000  feet.  The  opportunity  to 
check  for  control  law  robustness  is  provided  by  developing  aircraft 
models  for  all  three  flight  conditions. 

This  chapter  overviews  the  A-7D  aircraft  and  presents  a  discussion 
on  the  linearized  aircraft  equations  of  motion. 
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Aircraft  Description 

As  a  single  seat,  light  attack,  fighter  aircraft,  the  A-7D  has 
moderately  swept  wings  and  tail  surfaces,  is  designed  with  a  lower  fus¬ 
elage  engine  inlet  duct,  and  is  powered  by  a  TF41-A-1  engine  (Ref  3:7). 
Other  pertinant  aerodynamic  data,  as  found  in  Reference  3,  is  as  follows: 


Characteristic 

Data 

Unit  3 

Wing  area 

375 

sq.  ft 

Wing  m.g.c. 

10.8 

feet 

Horizontal  Slab  area 

56.2 

sq.  ft 

Slab  m.g.c. 

6.1 

feet 

Distance  from 

25#  wing  m.g.c.  to 

25#  slab  m.g.c. 

16.2 

feet 

Cruise  weight 

25,238 

pounds 

The  abbreviation,  m.g.c.,  stands  for  mean  geometric  chord.  Further 
aerodynamic  data  for  the  A-7D  Digitac  aircraft  can  be  found  in  Ref¬ 
erence  8. 

System  Models 

The  approach  for  system  model  development  given  in  the  Potts 
reference  is  used  to  develop  the  three  aircraft  models  of  this  thesis. 

A  review  of  the  techniques  involved  to  develop  the  aircraft  equations 
of  motion  and  the  control  derivatives  for  this  thesis  is  given  in 
Reference  7.  This  work  also  contains  the  state  equation  matrices  of 
all  three  models  and  a  discussion  on  possible  actuators  and  sensors 
for  the  system. 

Aircraft  Equations.  The  aircraft  equations  of  motion  are  developed 
so  that  a  longitudinal  control  surface  can  provide  lateral  motion  and  a 
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lateral  control  surface  can  provide  longitudinal  motion.  This  is  the 
requirement  to  be  met  when  considering  the  development  of  a  recon- 
figurable  control  law  for  the  possibility  of  a  primary  control  surface 
failure.  The  aircraft  is  modeled  with  eight  inputs:  left  and  right 
ailerons,  left  and  right  spoilers,  left  and  right  horizontal  stab¬ 
ilizers,  a  rudder,  and  flaps. 

The  aircraft  has  eight  system  outputs  which  are  defined  as: 


Output  Symbol 

Forward  velocity  u 

Flight  path  angle  Y 

Pitch  rate  q 

Pitch  angle  $ 

Roll  rate  p 

Roll  angle  (j> 

Yaw  rate  r 

Sideslip  angle 


Control  Derivatives.  The  non-dimensional  control  derivatives  for 
the  aircraft  models  were  derived  with  the  aid  of  the  Digital  DAT COM 
computer  package  (Ref  9)  and  from  aircraft  data  charts  found  in  Ref. 

10  and  Ref.  11.  To  learn  the  method  for  developing  the  control  de¬ 
rivatives  from  the  DATCOM  and  chart  data,  the  Mach  0.6  derivatives 
were  calculated  and  checked  against  those  found  in  Ref.  3»  The  con- 
%  trol  derivatives  were  adjusted  as  necessary,  and  then  the  derivatives 
for  the  Mach  0.18  and  Mach  0.8  flight  conditions  were  computed. 

Summary 

This  chapter  begins  with  a  brief  discussion  of  the  A-7D  Digitac  II 
aircraft.  The  model's  aircraft  equations  of  motion  are  then  described 
and  reference  is  made  to  the  eight  inputs  and  outputs  of  the  system. 
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The  chapter  concludes  with  a  discussion  of  how  the  non-dimensional 
control  derivatives  are  derived. 

With  the  aircraft  models  for  the  0.18,  0.6,  and  0.8  Hach  flight 
conditions  available,  the  discussion  now  turns  to  the  theory  used 
to  develop  a  control  law  for  the  model. 
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Ill  Multivariable  Digital  Control  Law  Theory 


Introduction 

The  digital  control  law  methods  used  in  this  thesis  are  those 
developed  by  Professor  Brian  Porter,  University  of  Salford,  England. 

A  summary  of  the  digital  techniques  presented  in  Refs.  4,  5,  and  6,  is 
given  in  this  chapter.  These  techniques  produce  a  proportional  plus 
integral  control  signal  which  is  piece-wise  constant  for  each  sampling 
period.  Thus,  the  total  system  consists  of  a  continuous-time  plant 
and  a  digital  controller. 

The  continuous  state  and  output  equations  are  defined  as: 

x(t)  *  Ax(t)  +  B  u(t)  +  D  d(t)  (l) 

^(t)  =  Cx(t)  (2) 

where 

A  =  continuous-time  plant  matrix 

B  »  continuous- time  control  matrix 

D  =  continuous-time  disturbance  matrix 

_C  «=  continuous-time  output  matrix 

This  chapter  defines  the  number  of  states,  inputs,  and  outputs  as  n, 
m,  and  p,  respectively. 

There  are  three  design  procedures  based  on  the  type  of  plant 
involved  in  the  design.  The  type  of  plants  are  described  as  unknown, 
regular,  and  irregular.  The  discrete-time  state  and  output  equations 
of  the  plants  follow  the  form: 
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x  (kT  + 

T) 

■  (fix  (kT)  +  \p  u  (kT)  +  A  d  (kT) 

(3) 

z  Off) 

-  r  x  (kT) 

(4) 

where 

<t> 

**  sampled-data  plant  matrix 

* 

*  sampled-data  control  matrix 

A 

=  sampled-data  disturbance  matrix 

r 

=  sampled-data  output  matrix 

and 

<t> 

*  exp  (AT) 

(5) 

* 

T 

=  (  exp  (At)  B  dt 

;0  “ 

(6) 

A 

/T 

=  I  exp  (At)  D  dt 
;0 

(7) 

r 

-  C 

(8) 

The  final  section  of  the  chapter  contains  a  description  of  the 
range  spaces  for  the  matrices  and  vectors  of  this  chapter’s  equations. 

Unknown  Plants  (Ref  k) 


If  the  physical  system  of  interest  is  not  already  described  by  a 
state  equation  model,  it  may  be  costly  and  time  consuming  to  develop 
a  detailed  model.  If  the  steady-state  transfer  function  matrix,  G(0) , 
is  developed  for  the  plant,  an  error-actuated  controller  can  be  designed 
for  the  system  using  the  unknown  plant  technique.  The  G(o)  matrix 
can  easily  be  determined  from  "off-line”  tests  for  a  stable  plant.  If 
the  state  equations  are  known,  the  unknown  plant  method  can  be  used  to 
develop  a  controller  after  obtaining  the  G(o)  matrix  froms 

2(0)  -  -  [  C  A"1  B  ]  (9) 
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Stability  is  assured  for  this  method  of  controller  design  if  the 
rank  of  the  steady-state  transfer  function  matrix  is  equal  to  the  number 
of  system  outputs.  The  system  must  also  have  at  least  as  many  inputs 
as  outputs.  It  is  assumed  that  the  eigenvalues  of  the  open-loop  plant 
matrix,  A,  lie  in  the  stable,  left-half  s-plane  region. 

The  control  law  for  the  error-actuated  digital  controller  incor¬ 
porates  a  proportional  plus  integral  control  represented  by: 

u  (kT)  *  T  [  a  e  K  e  (kT)  +  e  K  z  (kT)  ]  (10) 

where 

e  (kT)  =  v  (kT)  -  ^  (kT)  (ll) 

z  (kT  +  T)  =  z  (kT)  +  T  e  (kT)  (12) 

The  parameter,  OC  ,  determines  the  proportion  of  integral  of  error 
feedback,  z  (kT),  to  direct  error  feedback,  _e  (kT);  v  (kT)  is  the  com¬ 
mand  input  vector;  T  is  the  sampling  time;  6  is  a  scalar  multiplier. 

The  values  of  a  ,  €  ,  T ,  and  K  are  chosen  such  that  the  eigenvalues  of 
the  closed-loop  plant  matrix  are  inside  the  z-plane  unit  circle.  Conse¬ 
quently,  in  the  limit,  when  k  approaches  infinity,  jj  (kT) —  0,  so  that, 
for  constant  commands,  tracking  and  disturbance  rejection  is  accomplished. 
The  controller  matrix,  K,  is  found  from  the  relation: 

K  =  G(0)T  [  G(0)  G(0)T  ]_1E  (13) 

where  L  is  a  weighting  matrix  of  scalar  diagonal  elements,  a  £  .  The 
controller  for  the  unknown  plants  can  be  condensed  into  the  formula: 

u  (kT)  =  T  [  e  (kT)  +  Kx  z  (kT)  ]  (H) 

where 

K  =  a  e  K 

— O  — 

Kx  =  e  K 
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(15) 

(16) 
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Regular  Plants  (Ref  5) 

The  state  and  output  equations  described  in  Eqs.  (l)  thru  (8) 
are  also  used  in  this  design  method.  However,  the  state  equation 
matrices  of  the  plant  in  the  continuous-time  domain  are  partitioned 
into  the  formi 


A 


k.1  •  ~L2 
-21  »  -22 


B 

C 


-  - 
0 

B 

[  Ci  ,  c2  ] 


(17) 


(18) 

(19) 


For  a  plant  to  conform  to  the  regular  plant  design  technique  of 
controller  design,  the  first  Markov  parameter,  [ _£2  B2  ] ,  must  have 
rank  equal  to  the  number  of  outputs.  The  control  law  is: 
u  (kT)  =  (1/T  )  [  Kq  e  (kT)  +  ^  z  (kT)  ]  (20) 

where  Eqs.  (15)  and  (16)  apply. 

Increasingly  better  tracking  and  disturbance  rejection  occurs  as 
the  sampling  frequency,  (  l/ T ) ,  approaches  infinity.  The  theory 
associated  with  this  design  shows  that  the  transfer  function  matrix, 
G(X),  includes  "slow"  modes  and  "fast"  modes.  The  system  transmission 
zeros  are  included  in  the  "slow"  inodes  and  are  calculated  from  the 
equation: 

2<*t>  -j  I  X  4-p  -  4-p  -  T  +  T  42  |  -0}  <21> 


The  matrix,  I,  is  the  identity  matrix.  It  is  essential  that  the 


transmission  zeros  lie  inside  the  unit  circle  of  the  z-plane,  for  the 
sampling  period  chosen,  so  that  the  system  remains  stable. 

The  controller’s  tracking  and  disturbance  rejection  properties 
are  attained  if  the  controller  matrix,  j(,  is  designed  such  that: 

K  =  (  l/at)  [  C  B  ]_1V  (22) 

Considering  the  partitions  of  matrices,  B  and  _C,  and  the  definition 
of  in  Eq.  (15),  Eq.  (22)  can  be  written: 

-  C  c2  B2  (23) 

Irregular  Plants  (Ref  6) 

The  state,  output  and  control  law  equations  in  the  regular  plant 
design  method  are  also  applicable  to  this  section.  However,  for  plants 
in  which  the  C2  matrix  is  rank  deficient,  it  is  necessary  to  modify 
the  error  vector,  (kT),  so  that  the  first  Markov  parameter  has  full 
rank.  Note  that  the  plant  control  matrix,  B,  has  the  form  shown  in 
Eq.  (18)  and  is  assumed  to  have  full  rank. 

The  error  vector  of  Eq.  (11)  is  replaced  by  the  following  equation: 


e  (kT)  =  v  (kT)  -  w  (kT) 

(24) 

where 

w  (kT)  =  [  Fx  ,  F2  ]  X  (kT) 

(25) 

and 

fi  ■  t  +  « 

(26) 

Z2  - 

(27) 

The  matrix,  M,  is  a  measurement  matrix  which  must  be  chosen  so  that  the 
rank  of  is  equal  to  the  number  of  outputs.  With  constant  inputs, 
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« 


the  steo.'y  boat 2  values  of  both  w  (kT)  and  (kT)  equal  v  (kT),  so  the 
system  tracks  the  commanded  input  v  (kT)  as  desired. 

The  control  law  is  the  same  as  that  given  in  Eq.  (20).  However, 
because  of  the  modification  of  the  error  vector,  the  transmission  zeros 
are  found  from: 

i(h)  -j  U^-p-^-p-Tin  ♦t*1jf2-1Ii|  -o{  (28) 

These  transmission  zeros  must  lie  inside  the  unit  circle  of  the  z-plane. 
For  irregular  plants  the  controller  matrix,  K,  is  defined  as: 

K  =  (  l/ae  )  [  F2  b2  ]_1E  (29) 

Vector/Matrix  Range  Spaces 

This  section  lists  the  range  spaces  for  the  vectors  and  matrices 
of  Eqs.  (1)  to  (29).  Beginning  with  the  definition  that: 
n  =  number  of  states 

m  =  number  of  inputs 

p  =  number  of  outputs 

for  all  designs,  x(kT)  €  Rn,  u(kT)  6  Rm,  e  RP>  e(kT)  E  RP, 

v(kT)  e  RP,  z(kT)  E  RP,  K  E  RmXp,  K  E  Rpxp,  K1  E  Rpxp,  and 
E  €  RP.  For  both  regular  and  irregular  plants,  the  systems  are 
assumed  to  be  square,  that  is,  m  =  p.  The  additional  range  space 
definitions  are  shown  in  Table  I. 

Summary 

This  chapter  presents  the  three  digital  control  law  methods 
developed  by  Professor  Brian  Porter.  Control  laws  for  unknown,  regular, 
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TABIE  I 


Definition  of  Vector/Matrix  Range  Spaces 


REGULAR  PLANTS 

IRREGULAR  PLANTS 

Vector/Matrix  Space 

x^kT)  R1^13 

x2(kT)  RP 

A11  R(nF-p)x(n-p) 

R(n-P>  XP 

A21  RP*("-P) 

*22  EP:tP 

Bg  RPXP 

Oj  Rp*(»-p) 

C,  RPXP 

'2 

VectorAfetrix  Space 

Fj  RPx(n-p) 

F,  RPIP 

K  rPf(»-p) 

and  irregular  plants  are  implemented  in  the  computer  program,  MULTI. 

Aspects  concerning  the  development  of  the  computer  program  are 
given  in  the  next  chapter. 
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IV  Development  of  the  MJLTI  Computer  Program 


Introduction 

MJLTI ,  an  interactive,  user-oriented  computer  program ,  is  devel¬ 
oped  to  design  and  simulate  the  control  laws  for  unknown,  regular, 
and  irregular  plants.  The  computer  program  includes  nearly  2,A00 
lines  of  FORTRAN  V  code  and  is  a  full  extension  of  the  simulation 
package  for  unknown  plants,  PAK200  (Ref  12).  PAK200  was  received 
from  the  University  of  Salford,  Department  of  Aeronautical  and  Mech¬ 
anical  Engineering. 

This  chapter  relates  the  requirements  that  are  set  for  the  pro¬ 
gram,  the  program  design  emphasis,  and  the  constraints  and  problems 
that  are  faced  in  the  development  of  MJLTI.  The  next  chapter  de¬ 
scribes  the  actual  program  structure  of  MULTI.  Appendix  A  consists 
of  a  User's  Manual  for  MJLTI  and  Appendix  B  contains  a  Programmer ' s 
Manual  that  will  facilitate  future  expansion  of  MJLTI. 

Program  Requirements 

The  requirements  for  the  computer  program  are  set. so  that  MJLTI 
can  take  full  advantage  of  the  techniques  used  in  designing  discrete¬ 
time  tracking  systems  for  linear  multivariable  (multiple  input, 
multiple  output)  plants. 

These  requirements  includes 

(l)  The  computer  package  must  be  fully  interactive,  be  user- 
oriented,  and  allow  for  an  iterative  design  process. 


(2)  The  program  must  be  able  to  detect  input  errors  and  supply 
the  user  with  the  cause  of  the  errors. 

(3)  The  program  must  allow  the  user  to  input  data  from  the  ter¬ 
minal  keyboard  or  a  data  file  and  store  pertinent  data  in  local  files 
upon  normal  program  termination. 

(4)  The  package  should  include  design  ability  for  unknown,  reg¬ 
ular,  and  irregular  plants. 

(5)  The  package  must  be  able  to  recover  when  singular  matrices 
are  formed  and  direct  the  user  to  apply  an  alternate  design  technique. 

(6)  The  package  must  be  able  to  form  or  accept  a  measurement 
matrix  from  terminal  input  and  allow  the  user  to  perform  simple  row 
and  column  operations  on  any  matrix. 

(7)  The  package  must  include  a  simulation  of  the  continuous 

plant  with  piece-wise  constant  control  signals,  which  are  generated 
by  a  discrete  controller,  in  order  to  evaluate  the  control  laws  devel¬ 
oped.  .  - 

(8)  The  package  must  include  a  plotting  selection  for  quick 
sketches  at  the  user's  terminal  or  hard-copy  CALCOMP  plots. 

From  the  requirements  above,  a  structured  chart  is  developed 
that  is  shown  in  Fig.  1.  This  chart  illustrates  the  modules  of  the 
MJLTI  program  and  the  interconnection  between  the  modules. 

Program  Design  Emphasis 

When  a  computer  program  is  divided  into  several  modules,  the  con¬ 
tent  of  each  module  and  the  interconnections  between  the  modules  can 
significantly  affect  the  operation  and  complexity  of  the  resulting 
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MJLTI  Structure  Chart 


program.  Coupling  and  cohesion  (Ref  13)  are  two  qualities  that  are 
used  to  measure  the  overall  design.  These  two  concepts  form  the  basis 
of  structured  design  theory. 

Coupling  is  the  measure  of  the  strength  of  the  interconnections 
between  one  module  and  another.  It  is  essential  that  coupling  be 
kept  at  a  minimum  so  that  changes  in  one  module  do  not  severely  affect 
the  other  modules.  When  coupling  is  retained  at  a  low  level,  the 
ease  of  finding  and  correcting  program  bugs  is  enhanced  and  the 
program's  life  is  increased  since  quick  modifications  are  made  possible. 
In  order  to  keep  the  level  of  coupling  low,  t'.e  use  of  global  data 
is  kept  at  a  minimum.  When  global  storage  is  required,  labeled  common 
blocks  are  used  rather  than  blank  common  blocks  so  that  the  level 
of  coupling  is  reduced. 

Cohesion  is  the  degree  of  functional  relatedness  of  processing 
elements  within  a  single  module.  It  also  has  a  direct  effect  on  the 
ability  of  a  programmer  to  maintain  and  modify  a  program.  A  high 
level  of  cohesion  is  desirable  and  is  achieved  by  putting  only  func¬ 
tionally  related  processes  within  each  module.  However,  when  memory 
reduction  can  be  accomplished  with  a  slight  loss  of  cohesion,  the  loss 
of  cohesion  is  considered  acceptable. 

In  MJITI,  the  major  functions  of  the  program  are  directed  to 
lower-level  modules.  Every  module  is  designed  to  use  a  minimum  of 
memory  core,  and  every  labeled  common  block  is  designed  to  hold  only 
those  elements  needed  for  a  specific  purpose.  Through  this  type  of 
design,  MJETI  is  able  to  use  minimum  computer  memory  core,  have  mini¬ 
mum  coupling,  and  retain  a  high  level  of  cohesion. 


Design  Constraints 

There  are  two  main  design  constraints  when  developing  a  computer 
program  which  is  as  complex  as  MULTI:  one,  the  computer  language  that 
must  be  used,  and  two,  the  availability  of  computer  core  memory  that 
is  allowed  when  using  an  INTERCOM  system. 

FORTRAN  V  is  chosen  as  the  language  for  MULTI  since  AFIT's  cun- 
rent  programming  classes  utilize  this  FORTRAN  version  and  since  it  is 
the  latest  version  of  FORTRAN  available  on  the  ASD  CYBER  computer 
system.  Using  FORTRAN  V  does  not  restrict  the  use  of  the  ASD  Library 
subroutines,  even  though  they  are  coded  in  FORTRAN  IV,  since  all  are 
readily  compiled  into  the  more  powerful  version. 

Current  interactive  computer  users  are  constrained  to  operate 
in  65,OOOg  words  of  core  memory,  or  less.  Therefore,  MULTI  is  de¬ 
fined  to  operate  within  this  restriction.  The  core  memory  restric¬ 
tion  is  met  through  the  modular  design  of  the  program. 

Generalized  Matrix  Inverse 

There  are  matrix  inversions  occurring  at  several  points  during 
MULTI's  operation.  It  is  found  that  many  plant  matrices,  or  combin¬ 
ations  of  these  matrices,  are  singular  and  cannot  be  inverted.  An 
early  version  of  MULTI  included  a  subroutine  called  GENINV  which 
could  be  used  in  such  cases. 

Subroutine  GENINV  could  be  used  to  find  a  generalized  matrix 
inverse  for  a  matrix  which  is  singular.  Its  primary  tool  for  the 
inversion  was  built  upon  the  IMSL  Library  subroutine  LGINF  (Ref  14). 

After  a  generalized  inverse  was  formed,  a  computational  check 
was  made  for  accuracy  comparisons.  It  was  found  that  the  generalized 
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matrix  inversion  is  not  an  acceptable  solution  to  the  problem  of  sin¬ 
gular  matrix  inversion.  Thus,  the  GENINV  subroutine  was  discarded. 

When  singular  matrices  which  must  be  inverted  are  encountered, 
the  current  MJLTI  package  notifies  the  user  of  the  problem.  The  user 
is  then  required  to  augment  the  plant  matrices  in  some  manner,  using 
the  synthesis  method  for  irregular  plants,  to  eliminate  the  problem. 

Developmental  Problems 

The  starting  point  for  the  initial  MJLTI  program  design  is  the 
computer  package  called  PAK200  which  was  written  for  controller  design 
simulations  at  the  University  of  Salford,  England.  The  object  in 
developing  MJLTI,  a  similar  computer  package,  is  to  make  PAK200  com¬ 
patible  with  the  ASD  CYBER  computer,  i.e.  certain  computational  sub¬ 
routines  from  the  ASD  Subroutine  Library  are  substituted  or  incorporated 
into  PAK200. 

The  final  MJLTI  computer  package  that  is  now  available  is  a  com¬ 
pletely  interactive  design  and  simulation  tool  for  all  three  types  of 
plants  (unknown,  regular,  and  irregular).  The  main  body  of  the  code 
from  PAK200  is  entirely  contained  in  a  part  of  one  option  of  MJLTI. 

Two  subroutines,  dealing  with  the  differential  equation  formation  and 
the  value  of  the  output  at  the  end  of  each  time  increment,  are  also 
retained  to  provide  compatability  with  the  original  simulation  code. 

The  substitution  of  the  ASD  Library  subroutines  into  PAK200 
created  many  development  problems  in  the  formulation  of  the  final 
MJLTI  package.  Several  other  problems  were  also  encountered  as 
related  below. 
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First,  PAK200  was  not  received  when  expected;  therefore,  the 
creation  of  MULTI  was  delayed  3ince  it  was  assumed  that  PAK200  needed 
only  minor  revisions  to  make  it  compatible  to  the  ASD  CYBER  system. 
When  PAK200  was  received  and  redesigned,  it  was  found  that  several 
programming  methods  had  to  be  researched  to  put  MULTI  into  a  program 
compatible  with  the  restrictions  placed  upon  AFIT  INTERCOM  users. 

The  use  of  the  FORTRAN  V  language  also  presented  a  barrier  which 
was  not  eliminated  until  several  months  into  MULTI's  development. 

This  problem  concerned  the  use  of  CHARACTER  statements,  first  avail¬ 
able  in  FORTRAN  V,  which  produced  sporadic  errors  during  MULTI' s  many 
modifications.  To  eliminate  the  problem,  the  CHARACTER  variable, 
MULTI,  was  required  to  be  defined  as  10  characters  in  length  to  con¬ 
form  to  one  computer  word,  rather  than  be  defined  as  5  characters  in 
length.  This  problem  was  known  to  FORTRAN  V  subscribers  but  was  not 
related  to  FORTRAN  V  users. 

ASD  computer  downtime  during  the  summer  of  1981,  as  well  as  the 
automatic,  unexplained  file-purging  methods  of  the  ASD  CYBER  system, 
delayed  the  development  of  a  satisfactory  program. 

The  final  version  of  MULTI  is  the  best  that  can  be  obtained  by 
control  engineer  programmers  within  the  time  constraints  imposed 
on  the  development,  testing,  and  simulation  of  a  model,  controller 
and  computer  package  for  the  newest  techniques  of  the  multivariable 
design  of  this  thesis.  MULTI  meets  all  the  requirements  as  outlined 
at  the  beginning  of  the  chapter. 
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Summary 

This  chapter  presents  a  brief  description  of  the  developmental  steps 
used  to  create  MULTI.  The  discussion  begins  with  the  program  require¬ 
ments,  emphasis,  and  constraints.  The  chapter  ends  by  discussing 
several  developmental  problems.  The  next  chapter  discusses  the  MULTI 
program  structure. 
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V  MULTI  Program  Structure 


Introduction 

This  chapter  provides  the  reader  with  a  brief  description  of 
MULTI's  internal  structure.  Since  MULTI  must  be  able  to  operate  in 
65,OOOg  words  of  core  memory,  its  program  structure  consists  of  a 
group  of  various  modules.  Information  between  these  modules  is  passed 
by  using  the  data  base  concept  of  global  storage.  To  allow  MULTI 
to  be  fully  interactive,  the  program  uses  a  very  simple  Program 
Control  Interface.  These  three  aspects  of  computer  programming 
describe  MULTI's  program  structure. 

Overlays 

To  reduce  the  amount  of  memory  core  required  for  operation, 

MULTI  has  a  structure  consisting  of  several  modules,  called  overlays. 
Each  overlay  is  an  executable  program  and  combines  with  all  other 
overlays  to  form  a  complete  operational  overlay  structure.  There  is 
one  main  overlay  in  MULTI  and  13  primary  overlays.  The  main  overlay 
is  an  Executive  Program  directing  the  actual  functions  of  the  program 
to  the  13  lower- level  primary  overlays. 

This  overlay  structure  is  responsible  for  MULTI's  operation 
within  the  defined  65,OOOg  memory  core  limit.  The  main  overlay  re¬ 
mains  in  executable  memory  at  all  times.  As  each  different  computa¬ 
tional  or  functional  requirement  of  the  program  is  needed,  the 
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overlay  designed  to  do  the  procedure  is  loaded  into  executable  mem- 
ory  behind  the  main  overlay.  When  the  procedure  is  finished,  the 
primary  overlay  is  saved  and  is  replaced  by  the  overlay  needed  for 
the  next  procedure. 

Data  information  is  passed  between  overlays  in  MJLTI  by  the  use 
of  labeled  common  blocks.  If  a  program  variable  in  an  overlay  is  not 
listed  in  a  labeled  common  block,  its  value  is  not  retained  when  the 
next  overlay  is  loaded. 

A  complete  description  of  overlays  and  how  they  are  used  in  MJLTI 
can  be  found  in  the  MJLTI  Programmer's  Manual  attached  as  Appendix  B. 
For  more  detailed  information  the  reader  is  referred  to  the  CDC 
FORTRAN  V  Reference  Manual  (Ref  15)  and  the  CDC  CYBER  Loader  Reference 
Manual  (Ref  16). 

Data  Base 

MJLTI  uses  three  types  of  data  storage  methods  which  comprise 
its  data  base.  These  three  types  of  storage  methods  are:  local 
storage,  global  storage,  and  mass  storage.  Mass  storage  in  MJLTI 
entails  only  the  use  of  sequential-access  files. 

Local  storage  is  the  storage  method  which  is  used  for  program 
variables  that  are  needed  only  during  the  execution  of  a  particular 
overlay.  As  mentioned  previously,  these  locally  stored  values  are 
lost  when  the  overlay  is  finished  executing.  MJLTI  has  several 
matrices  which  are  generated  during  program  execution  whose  values 
are  destroyed  when  they  are  no  longer  needed. 

Global  storage  is  used  for  program  variables  whose  element 
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values  are  required  to  be  passed  between  overlays.  All  of  MJLTI's 
global  storage  is  accomplished  using  24  labeled  common  blocks.  The 
variables  defined  in  each  comnon  block  are  purposely  chosen  to  keep 
each  overlay  memory  core  requirement  at  a  minimum  while  still  allow¬ 
ing  for  the  necessary  data  transfer  between  overlay  loading. 

Sequential-access  files  are  used  in  MJLTI's  external  data  input 
functions  and  in  MJLTI's  mass  storage  capability.  A  sequential-access, 
data-input  file  can  be  built  by  any  user  for  use  with  the  program. 

The  specifics  and  proper  formatting  of  these  files  is  described  in 
detail  in  the  user's  manual  attached  as  Appendix  A.  MJLTI  automat- 
ically  creates  three  separate  memory  files  when  the  user  terminates 
program  operation.  A  file  called  "MEM)"  is  generated  to  hold  all  data 
input  values  describing  the  plant  of  interest  5  a  file  called  "MEM10"  is 
created  to  hold  all  design  parameters;  a  file  called  "MEM20"  is  formed 
to  hold  simulation  parameters.  These  local  files  can  be  stored  on  the 
user's  permenent  file  space  for  future  use  with  MJLTI,  or  can  be  routed 
to  the  system  printer  after  program  termination. 

Program  Control  Interface 

To  explain  the  interactive  features  which  are  incorporated  in 
MJLTI,  it  is  necessary  to  describe  the  aspects  of  Program  Control 
Interfacing,  MJLTI' s  interface  design  is  similar  to  the  interface 
found  in  TOTAL  (Ref  17) »  but  is  not  nearly  as  complex. 

Interfacing  Pattern.  All  MJLTI  operations  are  controlled  by 


having  the  user  choose  various  option  numbers  which  correspond  to 
desired  computational  functions.  Since  there  is  minimal  input  data 
verification,  the  user  must  adhere  strictly  to  the  limitations  noted 


in  various  parts  of  the  MJITI  User's  Manual.  Every  completed  option 
sets  an  internal  "flag”  allowing  entry  into  other  options.  There  is 
a  definite  pattern  for  successful  program  operation  which  corresponds 
to  a  normal  design  process.  The  program  is  designed  to  require  the 
user  to  flow  from  data  input,  to  controller  design,  to  simulation,  and 
finally  to  testing.  Each  part  of  the  design  can  be  re-accomplished 
interactively,  but  the  user  is  not  permitted  to  proceed  in  the  flow 
until  each  preceeding  design  step  is  accomplished.  However,  the  user 
need  not  test  each  design. 

All  options  are  explained  in  the  MULTI  User's  Manual. 

Data  Access  and  Manipulation.  Data  access  in  MULTI  is  accom¬ 
plished  by  in-line  program  requests  and  by  the  use  of  a  special  option 
number  range.  The  user  can  view  certain  pertinent  matrix  combinations 
and  other  data  of  interest  by  responding  affirmatively  when  the  pro¬ 
gram  prints: 

ENTER  ”0"  TO  OBTAIN  DATA  PRINTOUT 
ENTER  "1"  TO  SKIP  DATA  PRINTOUT... > 

In  some  cases,  the  data  cannot  be  accessed  again,  since  it  is  con¬ 
tained  on  a  local  storage  device,  unless  the  user  re-enters  the  same 
option  with  the  same  plant  data  and  design  specifications. 

The  second  me.  iod  of  data  access  is  by  the  use  of  options  having 
the  value  of  100  or  greater.  If  data  has  been  entered  using  OPTION  #1, 
the  same  data  can  be  accessed  for  verification  by  using  OPTION  #101. 
This  method  of  data  access  is  incorporated  in  the  iinal  version  of 
the  program  since  earlier  versions  of  the  program  had  only  a  full, 
in-line  data  requesting  ability.  This  original  in-line  format  of 


displaying  data  uses  too  much  time  during  the  complete  design  process. 
The  final  data  access  method  allows  for  easy,  selective  data  access 
without  the  complex  character  verification  routines  so  often  used  in 
similar  programs. 

After  data  access  the  user  may  determine  that  values  are  not 
entered  correctly,  or  for  some  reason,  need  to  be  changed.  The  user 
can  use  one  of  two  means  to  change  the  data.  The  option  related  to 
the  data  in  question  can  be  re-entered  or  the  user  can  terminate 
MJLTI  and  edit  the  program-created  data  files.  This  last  means  of 
changing  data  is  of  special  interest  when  changing  element  values  of 
the  plant's  A,  B,  £,  and  D  matrices. 

Error  Detection  and  Recovery 

The  error  detection  and  recovery  aspects  of  MJLTI  are  somewhat 
limited.  Since  the  main  emphasis  of  the  thesis  is  not  perceived  to 
entail  the  complete  design  of  a  computer  simulation  package,  MJLTI 's 
design  is  not  based  upon  the  ability  to  protect  the  user  from  input 
errors.  MJ1TI  is  designed  to  alert  a  user,  and  recover,  when  program 
flow  is  not  in  the  proper  order,  or  when  certain  plant  deficiencies 
require  the  use  of  a  certain  controller  design. 

Input  errors  such  as  character  entries  for  numerical  data,  and 
vice  versa,  are  all  detected  by  the  CYBER  error  detection  capabili¬ 
ties.  In  these  cases  the  user  is  allowed  to  re-enter  the  proper 
information  and  continue. 

MJLTI  restricts  the  user  to  a  system  of  no  more  than  ten  states, 
ten  inputs,  and  ten  outputs  and  2nd  order  actuators  and  sensors. 
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Simultaneous  simulations  can  be  run  for  up  to  two  different  sampling 
times  while  plots  can  be  generated  which  display  up  to  four  super¬ 
imposed  curves.  When  the  user's  requests  exceed  these  limitations, 
the  entire  MJLTI  program  is  aborted.  It  is  suggested  that  any 
WITI  user  become  completely  familiar  with  the  user's  guide  for  the 
program. 

When  MJIiri  is  aborted  the  CYBER  system  relates  the  nature  of 
the  error  which  causes  the  abnormal  termination  of  the  program. 

Summary 

This  chapter  summarizes  the  MJITI  program  structure.  Will's 
main  feature  is  its  overlay  structure.  As  each  specific  option  is 
requested,  the  overlay  responsible  for  the  required  calculations  is 
loaded  into  operational  memory  core.  Error  detection  and  recovery 
capabilities  are  shared  between  the  MULTI  program  and  the  CYBER 
computer  system. 

The  following  chapter  contains  a  control  law  design  for  the 
Mach  0.18  flight  condition  of  the  A-7D  Digitac  II  aircraft.  This 
control  law  is  designed  and  simulated  using  WLTI. 
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VI  Control  Law  Design 


Introduction 

This  chapter  summarizes  the  trials  which  are  made  to  obtain  a 
multivariable,  digital  control  law  for  the  0.18  Mach  flight  condition 
of  the  A-7D  Digitac  II  aircraft.  The  discussion  begins  with  a  brief 
look  at  two  early  aircraft  models  which  cannot  be  used.  The  aircraft 
equations  for  the  final  0.18  Mach  model  are  presented  next,  and  the 
steps  used  to  synthesize  the  final  control  law  are  outlined.  The 
chapter  ends  by  showing  what  response  effects  occur  when  various  con¬ 
trol  law  parameters  are  changed. 

Preliminary  Models 

Several  state  and  output  equation  forms  are  derived  as  various 
models  are  developed.  When  an  unforseen  obstacle  prevents  a  suitable 
design  for  one  set  of  equations,  the  equations  are  restructured  to 
bypass  the  obstacle.  This  section  discusses  two  of  the  preliminary 
models  which  are  tried. 

The  reader  is  referred  to  the  Paschall  thesis  (Ref  7)  for  infor¬ 
mation  on  other  state  and  output  equation  forms. 

Unknown  Plant .  As  noted  in  the  section  on  unknown  plants  in  Chapter 
III,  if  the  state  equations  are  known,  the  unknown  plant  method  can  be 
used  to  develop  a  controller  after  obtaining  the  G(o)  matrix.  The 
computer  program,  MCLTI,  forms  this  matrix  automatically  after  the 
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A,  _B,  c,  and  _D  plant  matrices  are  entered.  For  the  original  aircraft 
model  with  split  control  surfaces,  eight  states,  eight  inputs,  and 
eight  outputs  (Ref  7sAppendix  A),  the  G(o)  matrix  is: 


■  .170915+04 

.170935+04 

0. 

-.5164E+03 

.1789E+02 
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0. 
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0. 

0. 
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.4882E-02 
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.5643&+O0 

-.1153E+00 

.1153&+00 
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(30) 


Although  the  system  has  an  equal  number  of  inputs  and  outputs, 
the  G(o)  matrix  does  not  have  rank  equal  to  the  number  of  system  out¬ 
puts.  Thus,  the  model  does  not  meet  all  the  criteria  for  control  law 
design  by  the  unknown  plant  method. 

Augmented  State  Equations 

A  major  criterion  for  the  regular  plant  design  method  is  that 
the  first  Markov  parameter  has  full  rank.  In  the  case  of  the  A-7D 
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Digitac  II  model,  using  the  split  control  surface  configuration,  it 
is  found  that  this  requirement  is  not  met.  Although  the  system  states 
are  chosen  so  that  the  matrix  has  full  rank,  the  rank  of  the  Bg 
matrix  is  always  rank  deficient  due  to  the  elements  associated  with 
the  aircraft’s  split  flight  control  surfaces. 

It  is  initially  proposed  that  if  the  system  is  augmented  with 
actuator  transfer  functions,  the  matrix  can  be  adjusted  so  that 
full  rank  can  be  produced.  When  this  is  accomplished,  a  full  rank 
[£2  Bg]  matrix  results.  However,  it  is  found  that  for  the  states 
chosen  for  the  system,  the  model  contains  transmission  zeros  which 
lie  on  the  z-plane  unit  circle.  This  is  noted  in  early  design 
trials  which  produce  unstable  states  for  the  sampling  frequency  of 
interest. 

Final  Model 

The  final  model  contains  eight  states,  six  inputs,  and  six 
outputs.  Except  for  the  horizontal  stabilator,  the  flight  control 
surfaces  are  recombined.  The  output  equations  use  flight  path  angle 
as  an  output  where: 

y  =  (0  -  a)  (31) 

but  do  not  directly  include  angle  of  attack,  a  .  Roll  rate,  p,  and 
pitch  rate,  q,  are  not  used  as  outputs.  The  final  state  and  output 
equations  for  the  Mach  0.18  flight  condition  are: 
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Control  Law  Design 

The  control  law  synthesis  is  accomplished  using  the  interactive 
computer  program,  MJITI,  found  in  Appendix  A.  The  following  text 
is  a  condensed  narrative  of  the  process  used  to  find  an  initial  con¬ 
trol  law  for  the  aircraft  model  described  by  Eqs.  (32)  and  (33) • 

The  design  does  not  include  input  control  limitations,  sensors,  or 
actuators. 

As  an  initial  trial,  the  aircraft  equations  are  entered  into 
the  program  and  all  design  parameters  are  set  to  unity  values.  The 
responses  for  a  flight  path  angle  command  are  found  to  be  oscillitory 
and  unstable  as  shown  in  Fig.  2. 

The  parameter,  a t  ,  representing  the  ratio  of  integral  of  error 
feedback  to  direct  error  feedback,  is  changed  until  the  response  for 
the  flight  path  angle  command  successfully  follows  the  command  input. 
The  output  response,  with  a  =  0.10,  is  shown  in  Fig.  3,  and  shows 
an  overshoot  of  approximately  35$. 

With  a  =  0.1,  variations  in  the  €  parameter  are  considered 
next.  Trials  are  made  with  e  varying  from  0.01  to  2.0.  It  is  found 
that  a  trade-off  in  peak  values  and  settling  time  occurs  for  dif¬ 
ferent  combinations  of  the  a  and  e  values.  As  a  result,  the  ter¬ 
minal  plot  of  Fig.  4  is  obtained  with  O'  =1.0  and  e  =  0.05. 

At  this  point,  since  tracking  is  shown  for  a  commanded  flight 
path  angle,  all  other  inputs  are  commanded  and  the  responses  noted. 

As  a  guideline,  it  is  decided  that  sufficient  tracking  can  be  attained 
if  the  response  shows  less  than  25$  overshoot  with  a  settling  time  of 
five  seconds  for  all  input  commands.  Except  for  the  settling  time  in 
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the  yaw  rate  state,  the  specifications  are  met  satisfactorily.  However, 
some  interaction  is  noted  in  the  other  states. 

The  diagonal  weighting  matrix  elements,  a £  ,  are  then  adjusted 
in  an  attempt  to  eliminate  the  interaction  between  states.  For  all 
the  simulation  trials  with  various  combinations  and  values  for  the 
weighting  matrix  elements,  it  is  noted  that  the  interaction  cannot 
be  significantly  reduced  for  one  commanded  input  without  degrading 
the  basic  tracking  qualities  when  another  input  is  commanded. 

Thus,  the  "optimal”  control  law  found  from  all  the  simulation 
trials  is  defined  by  the  following  parameters: 


T  =  0.01 

Oi  =  1.0 

E  =  diag  [1,1, 1,1, 1,1] 
€  =  0.05 

which  give: 
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The  measurement  matrix  for  the  irregular  plant  design  is: 


Figures  5  thru  10  show  the  system  responses  for  each  commanded  input. 

The  results  a  summarized  in  Table  II.  The  forward  velocity  inter¬ 
action  during  a  pitch  angle  command  is  not  included  in  Fig.  7. 

Robustness.  The  "optimal"  control  law  shows  that  adequate  tracking 
for  the  Mach  0.18  can  be  obtained  for  each  commanded  input.  The  con¬ 
trol  law  is  then  used  to  test  the  responses  for  flight  path  angle, 
forward  velocity,  and  roll  angle  commands  with  the  Mach  0.6  and  0.8 
models  as  shown  in  Figs.  11,  12,  and  13-  The  three  responses  reveal 
that  only  forward  velocity  tracking  is  achieved  over  the  entire 
range  of  Mach  numbers. 

Failed  Control  Surfaces.  A  test  of  state  responses  is  made 
with  the  right  horizontal  stabilator  disatled.  To  accomplish  this 
condition,  the  elements  of  the  second  column  of  the  B  matrix  (Eq.  32) 
are  changed  to  zero  values.  Since  this  surface  failure  may  result  in 
both  longitudinal  and  lateral  instability,  two  tests  are  made.  The 
first  trial  includes  a  flight  path  angle  change;  the  result  is  shown 
in  Fig.  14.  The  second  trial  is  made  using  a  roll  angle  command  as 
the  input,  and  the  response  is  shown  in  Fig.  15.  Both  figures 
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demonstrate  that  the  control  law  does  not  provide  stability  after  a 
right  stabilator  surface  failure.  Although  Fig.  14  and  Fig.  15  may 
be  interpreted  as  showing  stability  until  three  seconds  have  elapsed, 
the  magnitude  of  the  independent  axis  values  must  be  considered. 

Figure  16  shows  that  the  response  to  a  roll  angle  command  is  unstable 
at  two  seconds. 

Control  Surface  Inputs.  An  analysis  of  the  control  law  design 
is  not  complete  without  mentioning  the  control  surface  deflections 
that  are  produced  for  the  various  commands.  As  mentioned  in  the 
Control  Law  Design  section,  the  simulations  for  this  chapter  are  run 
without  control  surface  limitations.  The  MJIiTI  computer  program 
allows  the  user  to  introduce  control  limits  and  shows  the  number  of 
times  that  these  limitations  are  exceeded  during  the  simulation  run. 
However,  if  the  control  surfaces  are  actually  limited  and  larger 
control  surface  deflections  are  dictated  by  the  control  law,  the 
system  may  become  unstable.  Thus,  the  control  limit  aspect  of  MJLTI 
should  be  used  only  to  provide  an  indication  that  a  surface  has  tried 
to  exceed  a  limitation,  and  not  be  interpreted  as  a  method  to  help 
the  control  law  eliminate  large  surface  deflections. 

For  all  the  simulated  control  law  designs,  all  flight  control 
surfaces  are  found  to  stay  within  an  allowable  deflection  range. 

There  is  one  exception,  that  being  the  left  and  right  horizontal 
stabilator  deflections  produced  during  a  yaw  rate  command.  These 
control  surface  values  exceed  60°  deflections  during  all  simulations. 
In  fact,  control  law  parameter  variations,  which  produce  high- tracking 
qualities  with  no  overshoot,  require  stabilator  deflections  as  high 


as  180°.  Left  and  right  surface  deflections  for  the  horizontal  sta- 
bilator  are  also  noted  to  be  non-symnetric  in  some  cases  (see  Fig.  17) 

Parameter  Variations 

This  section  gives  a  brief  discussion  of  the  effects  of  changing 
(1)  the  a  control  law  parameter,  (2)  the  e  control  law  parameter, 

(3)  the  sampling  period,  T,  and  (4)  the  measurement  matrix  values. 

This  discussion  is  applicable  only  to  the  Mach  0.18  flight  condition 
models  presented  in  this  thesis,  and  is  not  necessarily  valid  for 
other  system  models.  The  effects  of  varying  the  weighting  matrix 
diagonal  elements  is  not  presented  since  (in  the  case  of  this  aircraft 
model)  element  changes  do  not  produce  response  changes  that  are  ben- 
ficial  to  all  input  commands  and,  thus,  no  general  trends  can  be  shown 
It  also  must  be  pointed  out  that  each  time  a  control  law  parameter 
variation  is  made,  a  new  control  law  must  be  generated  and  the  re¬ 
sponses  of  all  inputs  and  all  outputs  should  be  investigated  for 
all  input  commands. 

The  effect  of  changing  the  a  parameter  is  shown  previously  in 
Figs.  2  and  3»  In  addition  to  the  response  changes  that  were  pre¬ 
viously  discussed,  Fig.  18  shows  that  if  a  =  0.01,  the  response 
for  a  flight  path  angle  command  is  unstable. 

Figure  19  shows  a  typical  response  change,  for  a  variation  in 
the  e  parameter,  when  yaw  rate  is  commanded.  As  is  the  case  with  the 
yaw  rate  response,  the  other  response  plots  show  a  significant  de¬ 
crease  in  rise  time. 

Figure  20  demonstrates  the  responses  noted  for  two  different 


sampling  times.  As  expected,  the  faster  sampling  frequency  produces 
a  faster  response  in  all  cases. 


For  the  Mach  0.18  flight  condition,  the  response  for  a  flight 
path  angle  command  is  investigated  for  three  different  values  of 
measurement  matrix  elements  (0.1,  0.25,  0.5).  It  is  found  that  all 
three  responses  are  identical  for  variations  in  the  measurement 
matrix. 

Summary 

This  chapter  presents  three  of  the  aircraft  models  that  are  used 
in  this  thesis.  Since  it  is  impossible  to  discuss  all  the  simulations 
that  are  made,  only  the  development  of  the  final  or  "optimal”  control 
law  for  the  irregular  plant  model  at  Mach  0.18  is  presented  in  detail. 

The  final  chapter  summarizes  the  results  and  conclusions  of 
the  entire  thesis  effort.  It  also  provides  some  suggestions  for  fur¬ 
ther  study  of  multivariable,  digital  control  law  design  which  might 
be  accomplished  as  an  extension  to  the  thesis  study. 
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FIG.  7  MACH  0.18  FLIGHT  CONDITION,  PITCH  ANCLE  COMMAND 


1  Flight  Path  Angle 

2  Forward  Velocity 

3  Pitch  Angle 

U  Sideslip  Angle 


TIME,  SECONDS _ 

FLIGHT  CONDITION,  ROLL  ANGLE  COMMAND 


For  Forward  Velocity 

1  Mach  0.80 

2  Mach  0.18 

3  Mach  0.60 


54 


IG.  12  MULTIPLE  FLIGHT  CONDITIONS,  FORWARD  VELOCITY  COMMAND 
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FIG.  15  MACH  0.10  FLIGHT  CONDITION,  ROLL  ANGLE  COMHAND 
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FIG.  18  MACH  0.18  FLIGHT  CONDITION,  FLIGHT  PATH  ANGLE  COMMAND 
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VII  Conclusions  and  Recommendations 


Thesis  Summary 

This  thesis  provides  basic  insight  on  the  use  of  Professor  Brian 
Porter's  multivariable,  digital  control  law  design  techniques  to  de¬ 
velop  a  robust,  reconfigurable  control  law  for  the  A-7D  Digitac  II 
aircraft . 

Chapter  I  presents  an  introduction  to  the  area  of  study.  Chapter 
II  describes  the  aircraft  equations  of  motion  and  stability  derivatives, 
and  includes  a  discussion  of  the  aircraft  model  for  the  A-7D  aircraft. 
Chapter  III  presents  a  summary  of  the  control  law  techniques  for 
unknown,  regular,  and  irregular  plants.  Chapters  IV  and  V  introduce 
the  interactive  computer  program,  MULTI.  The  actual  control  law 
development  and  analysis  for  the  Mach  0.18  flight  condition  is  given 
in  Chapter  VI. 

The  appendices  of  the  thesis  contain  a  MULTI  User's  Manual 
(Appendix  A),  a  MJLTI  Programmer's  Manual  (Appendix  B) ,  and  a  program 
source  listing  (Appendix  C). 

The  associate  thesis  by  Paschall  (Ref  3)  should  be  reviewed  by 
the  reader  who  is  interested  in  further  details  concerning  the  de¬ 
velopment  of  the  aircraft  equations  of  motion  and  stability  deriva¬ 
tives.  This  reference  also  provides  a  listing  of  the  state  and  output 
equations  for  the  Mach  0.6  and  0.8  flight  conditions,  and  a  design 
and  analysis  of  a  control  law  for  the  Mach  0.6  case. 
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Conclusions 


The  research  work  of  the  thesis  demonstrates  that  a  tracker  control 
law  using  the  singular  perturbation  methods  of  Reference  6  can  success¬ 
fully  be  developed  for  the  A-7D  Digitac  II  aircraft.  However,  the 
final  design  has  limitations  and  further  work  is  required  to  improve 
the  performance. 

Although  the  overall  tracking  requirements  of  the  control  law 
can  generally  be  met  by  adjusting  the  control  law  parameters,  the 
high-gain  aspect  of  the  design  requires  flight  control  surface  inputs 
which  exceed  the  feasibility  of  the  aircraft  design.  The  control 
law  presented  in  Chapter  VI  demonstrates  robustness  only  for  the 
forward  velocity  commands.  Additional  refinement  of  the  controller 
design  should  be  used  to  overcome  these  difficulties. 

The  first  emphasis  of  the  thesis  work  was  the  development  of  a 
fully  operational  computer-aided  design  program.  This  requirement 
severely  limited  the  amount  of  mathematical  research  of  the  control 
law  equations  and  the  number  of  design  trials  which  could  be  accom¬ 
plished  in  the  available  time  constraints. 

It  is  also  pointed  out  in  Chapter  VI  that  for  some  of  the  commanded 
inputs,  the  left  and  right  horizontal  stabilators  showed  non-symmetric 
deflections.  This  can  be  interpreted  as  a  modeling  problem,  and  the 
thesis  research  was  terminated  before  these  modeling  problems  could 
be  further  investigated. 

Undesirable  interaction  between  the  states  was  also  found  for 
sideslip  angle  and  roll  angle  commands.  An  aircraft  can  have  a  yaw 
angle  and  a  yaw  rate  with  zero  sideslip;  however,  if  there  is  an 


angle  of  sideslip  there  must  be  a  yaw  angle  (Ref  18).  For  the  control 
law  design  of  Chapter  VI,  the  A-7D  Digitac  II  aircraft  would  seem  to 
need  a  stronger  yaw  orientational  control  system,  although  this 
interaction  might  also  be  eliminated  by  adjusting  the  model  so  that 
the  horizontal  stabilator  movements  are  symmetrical. 

The  MJUTI  computer  prrgram  developed  in  this  thesis  is  available 
from  the  Electrical  Engineering  Department,  Air  Force  Institute  of 
Technology  and  the  Air  Force  Wright  Aeronautical  laboratory  (FIGL) , 
Wright-Patterson  AFB,  Ohio.  As  the  computer  program  is  developed 
specifically  for  use  in  thesis  research,  it  may  require  modification 
to  be  fully  generic  for  use  by  the  engineering  community.  . 

Recommendations 

The  conclusions  presented  in  the  previous  section  lead  to  the 
following  recommendations: 

1.  Aircraft  design  must  include  sufficient  wind  tunnel  testing 
which  would  provide  all  control  derivatives  needed  to  develop  an 
aircraft  model  based  on  split  control  surfaces.  The  aircraft  model 
should  be  tested  by  established  methods  before  being  used  in  any 
theoretical  research. 

2.  A  full  mathematical  analysis  should  be  accomplished  in  an 
attempt  to  tabulate  the  effects  of  changes  in  the  O'  ,  e  ,  and  a [  var¬ 
iables  as  related  to  the  overall  control  law  equations  for  unknown, 
regular,  and  irregular  plants.  This  analysis  would  help  reduce  the 
number  of  "trial  and  error"  simulations  needed  when  designing  a  control 
law  for  an  aircraft. 
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3.  With  the  availability  of  the  fi/LTI  program,  the  design  of 
controllers  for  the  case  of  aircraft  surface  failures  can  be  studied. 

4.  Future  modifications  to  tfJLTI  should  include  the  capability  for 
input  command  vectors  which  are  "ramped-up" ,  in  addition  to  the  current 
step  input.  The  program  should  also  be  tested  with  the  DEL  Library 
subroutine  DVERK  (Ref  14)  replacing  the  ODE  subroutine.  The  tests 
should  check  for  increased  accuracy  and  speed  using  the  Runga-Kutta 
method  for  solution  of  differential  equations. 

5.  The  KJLTI  computer  program  should  be  modified  to  include 

a  batch  capability  to  take  advantage  of  increased  job  time  and  core 
memory  allocations. 
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Appendix  As  User's  Manual  for  Program  MJLTI 


Overview  of  MJLTI 

MJLTI  is  an  interactive  program  which  enables  a  computer  user  to 
design  and  simulate  digital,  multivariable  control  laws  for  discrete, 
linear,  multiple-input,  multiple-output  systems.  The  three  design 
methods  incorporated  in  this  program  were  developed  by  Professor  Brian 
Porter  of  the  University  of  Salford,  England  (Refs  4;  5;  and  6).  To 
help  the  user  become  quickly  familiar  with  the  program,  the  following 
overview  is  provided. 

MJLTI  is  able  to  design  and  simulate  control  laws  for  three  types 
of  plants: 

(1)  Unknown  —  The  plant  state  and  output  equations  are  unknown, 
but  the  steady-state  transfer  function  matrix,  G(o) ,  is  ob¬ 
tainable  from  off-line  tests.  This  method  is  also  applicable 
to  known  plants,  if  G(o)  has  full  rank. 

(2)  Regular  —  The  linear,  multivariable  plant  dynamics  are 

described  by  the  usual  state  and  output  equations,  and  the 
first  Markov  parameter,  [  ],  has  full  rank. 

(3)  Irregular  —  The  plant  dynamics  are  described  by  state  and 
output  equations,  and  the  first  Markov  parameter  does  not 
have  full  rank.  Thus,  the  system  must  be  augmented  by  a 
measurement  matrix  so  that  a  control  law  may  be  developed. 

All  control  law  designs  may  be  evaluated  by  a  discrete-time  sim¬ 
ulation  of  the  system,  actuator,  and  sensor  equations.  The  user  may 
elect  to  obtain  a  terminal  plot  or  a  CAIjCOMP  plot  of  the  system  input 
and/or  system  output  responses. 

MJLTI  focuses  on  Porter's  digital  design  as  opposed  to  a  continuous 
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design  method.  At  various  points  during  the  design  and  simulation  pro¬ 
cess,  the  program  can  provide  intermediate  information  about  system 
matrices  and  input/output  values. 

Input,  design  and  simulation  data  is  automatically  stored  on 
separate  memory  files  for  future  use.  This  prevents  the  time  consuming 
task  of  re-entering  data  when  the  same  system  is  under  study. 

The  program  performs  full  error  detection  and  diagnostics  when 
there  are  deficiencies  in  input  data,  design  data,  plotting  data,  or 
if  the  plant  equations  are  not  sufficient  for  the  type  of  design  being 
tried.  Input  error  detection  and  recovery  is  limited,  relying  mainly 
on  the  automatic  CYBER  error  detection  capability.  The  user  should  be 
wary  of  entering  values  inconsistant  with  the  limitations  described 
in  this  guide,  since  exceeding  these  limits  may  cause  unexpected  term¬ 
ination  of  the  program.  If  this  occurs  the  memory  files  are  not  gen¬ 
erated  and  all  data  is  lost. 

It  must  be  stated  that  MJLTI  is  not  as  dynamic  in  its  ability  to 
receive  input  data  as  other  programs  with  which  the  user  may  be  familiar 
(i.e.  TOTAL  (Ref  17),  CESA  (Ref  19)).  At  present,  character  inputs  to 
display  current  matrix  values  or  system  design  values  are  not  available 
except  by  requesting  the  proper  option  number.  Also  at  present,  enter¬ 
ing  a  "$"  symbol,  rather  than  actual  data,  to  abort  an  option,  is  not 
recognized  unless  specifically  noted  in  the  program  instructions  below. 
During  data  input,  if  a  comma  is  entered  rather  than  an  actual  data 
value,  the  previously  entered  data  value  is  retained. 

The  designator  in  the  equations  of  this  guide  denotes  mult¬ 
iplication. 


1.  Introduction  to  MJUI 

The  MULTI  computer  package  contains  approximately  70  ordered 
options  which  give  the  user  an  interactive,  iterative  approach  in  the 
design  and  simulation  of  control  laws  for  linear,  multivariable  plants. 
A  desirable  control  law  assures  that,  for  constant  commands,  the  out¬ 
put  tracks  the  input  and  that  disturbance  rejection  is  accomplished. 
The  method  can  be  used  only  if  (l)  the  introduction  of  integral 
action  preserves  stabilizability,  (2)  the  number  of  outputs  is  equal 
to  or  less  than  the  number  of  inputs,  and  (3)  the  forward  transfer 
function  has  no  zero-valued  transmission  zeros. 

Once  the  model  is  entered  and  the  parameters  for  the  control  law 
are  selected,  a  simulation  can  be  run  which  provides  a  full  time- 
sequential  listing  of  input/output  values  and  a  tabular  listing  of 
the  same  data.  The  tabular  listing  is  then  used  to  obtain  plots  of 
the  input/output  values,  if  the  user  desires.  The  following  discus¬ 
sion  should  give  the  user  all  the  information  for  optimal  use  of  the 
computer  program  package  called  MILT I. 

To  attach  and  run  MULTI,  after  LOGIN,  the  user  enters: 

COMMAND-  CONNECT, INPUT, OUTRJT 
COMMAND-  ATTACH, MULTI, ID=AFIT,SN=AFIT 
COMMAND-  SCREEN,  FULL 
COMMAND-  (ATTACH  DATA  FILES) 

COMMAND-  MULTI 

The  ID  and  SN  entries  will  depend  on  local  directives.  MJLTI  is  ter¬ 
minated  by  entering: 


OPTION,  PLEASE >  #99 
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1.1  MULTI1  s  Input  Modes 

MULTI  has  three  input  modes  in  which  it  requests  input  information 
from  the  user.  These  modes  are  called  the  OPTION  Mode,  the  DATA  Mode, 
and  the  QJERY  Mode.  Each  mode  has  its  own  restrictions  on  allowable 
input  and  its  own  method  of  requesting  information. 

OPTION  Mode.  The  OPTION  Mode  is  the  executive  command  mode  for 
MULTI.  It  has  the  following  prompt  messages 
OPTION,  PIEASE >  # 

Once  the  program  is  in  this  mode,  the  user  is  allowed  to  select 
any  option  referring  to  input,  design,  simulation,  plotting,  or  program 
termination.  This  mode  is  the  main  input  mode  of  MULTI  since  it  allows 
the  user  complete  access  to  the  program  and  data  files. 

DATA  Mode.  MULTI  enters  the  data  mode  when  information  is  needed 
to  perform  an  option.  Each  data  input  request  has  a  specific  statement 
associated  with  it,  and  each  request  is  terminated  by  the  symbol,  "  >  ". 
Normally,  data  input  must  be  numerical  and  separated  by  either  a  comma, 
a  space,  or  the  return  key  of  the  terminal.  There  are  other  miscellan¬ 
eous  data  mode  options  which  require  character  entries.  All  replies  can 
be  accomplished  by  a  single  character  except  when  the  program  asks  the 
user  to  enter  the  choice  of  "INPUT"  or  "OUTPUT".  In  this  case  the  pro¬ 
gram  requires  the  entire  word,  spelled  correctly,  to  continue  properly. 

QJERY  Mode.  MULTI  uses  the  QUERY  Mode  as  an  input  checking  tool 
and  to  suppress  data  printing.  The  name  QJERY  Mode  suggests  that  the 
program  is  asking  the  user  if  data  is  correct  or  is  to  be  printed. 

The  messages  in  this  mode  are  either  of  the  form: 


ENTER  "0"  TO  SKIP  DATA  PRINTOUT 
ENTER  "1"  TO  OBTAIN  DATA  PRINTOUT... > 


or  of  the  form: 


IS  THIS  CORRECT.. ,YES,NO,$. .  .> 

In  the  latter  case  a  "NO"  reply  will  return  the  user  to  the  data 
input  point  while  a  "$"  reply  will  terminate  the  option.  Although  the 
option  is  terminated,  the  values  just  entered  are  placed  in  memory. 

The  user  can  also  enter  a  simple  "Y"  or  "N". 

1.2  MJLTI's  Options 

MJITI  contains  40  main  options  that  allow  the  user  versatility  in 
the  input,  design,  simulation  and  analysis  of  control  laws  for  unknown, 
regular,  or  irregular  plants.  The  options  are  grouped  together  into 
four  major  option  blocks  as  follows: 


BLOCK  1 

OPTIONS  #  0  thru  #  9 

Plant  Input  Options 

BLOCK  2 

OPTIONS  #  10  thru  #19 

Design  Parameter  Options 

BLOCK  3 

OPTIONS  #  20  thru  #  29 

Simulation  Options 

BLOCK  4 

OPTIONS  #  30  thru  #  39 

Plotting  Options 

In  addition,  OPTIONS  #100  thru  #130  form  Option  BLOCK  5  which  is  com¬ 
posed  of  printing  commands  used  to  print  the  data  entered  into  the 
program  from  the  related  main  option.  That  is,  to  print  the  data  which 
was  entered  into  the  program  by  using  OPTION  #5,  the  user  selects  OPTION 
#105. 

Although  the  selection  of  a  sampling  time  is  actually  a  design 
parameter,  BLOCK  2  is  used  only  to  form  the  control  law  matrices  which 
are  independent  of  sampling  time.  Thus,  the  sampling  time  selection 
is  accomplished  in  the  simulation  option  block  where  the  actual  control 
law  is  used. 
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2.  Complete  Description  of  MJUI's  Options 

In  order  to  utilize  Will's  assets  fully,  it  is  necessary  to  have 
a  complete  understanding  of  the  i+0  main  options  available  in  WIITI. 

This  manual  is  intended  to  provide  all  of  the  information  needed  to 
accomplish  this  requirement.  The  options  described  in  the  following 
sections  may  be  selected  by  simply  entering  the  option  number  while 
the  program  is  in  the  option  mode. 

2.1  BLOCK  1  —  Plant  Input  Options 

Since  a  control  law  design  cannot  be  started  without  the  knowledge 
of  the  plant  model  or  steady-state  transfer  function,  it  is  necessary 
to  enter  some  representation  of  the  system  for  which  the  control  law 
is  to  be  designed.  Thus,  BLOCK  1  is  an  integral  part  of  the  WLTI 
program.  Plant  data  may  be  entered  via  the  G(o)  matrix  (OPTION  #1) 
or  by  entering  the  individual  matrices  of  the  state-space  representation 


of  the  plant  (OPTIONS  #2  and  #3) . 

Although  the  steady-state  transfer  function,  G(o),  can  be  used  to 
obtain  control  law  matrices,  it  does  not  provide  sufficient  inform¬ 
ation  to  run  a  simulation  and  obtain  plots  of  the  responses  by  using 


option  BLDCKS  3  and  4. 


The  state  and  output  equations  of  the  plant  follow  the  form: 

£  (t)  =  Ax  (t)  +  B  u  (t)  (A-l) 

X  (t)  =  C  x  (t)  +  D  u  (t)  (A-2) 

where 


A  =  continuous-time  plant  matrix 
B  =  continuous-time  control  matrix 
C  =  continuous-time  system  output  matrix 
D  =  continuous-time  feed-forward  matrix 
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Note  that  there  is  no  provision  for  a  disturbance  matrix  in 


Eq.  (A-l)« 

The  plant  input  option  block  also  allows  the  user  to  input  actuator 
and  sensor  state  equations  into  the  program.  These  equations  have  the 
same  format  as  shown  for  the  system  state  equations,  however  there  is 
no  feed-forward  matrix,  D.  If  actuator  and  sensor  values  are  not  entered 
by  the  user,  they  are  set  equal  to  single-order  servos  with  extremely 
fast  time  constants. 

The  program  accepts  a  maximum  of  ten  states,  ten  inputs,  and  ten 
outputs.  The  program  only  allows  for  2nd-order  actuators  and  sensors, 
thus,  they  may  have  to  be  approximated  by  lst-order  or  2nd-order  equiv¬ 
alent  servos. 

OPTION  #0  —  List  Options  0  thru  9 

This  option  lists  the  plant  input  options  from  0  to  9. 

OPTION  #1  —  Enter  G(0)  Matrix 

This  option  enters  the  steady-state  transfer  function  matrix,  G(0). 
The  user  is  asked  to  supply  the  number  of  inputs,  M,  and  the  number  of 
outputs,  P,  thus  setting  the  dimension  of  the  matrix.  The  data  is  then 
entered  by  row  following  each  prompt  message. 

OPTION  #2  —  Enter  Number  of  States.  Inputs,  and  Outputs 

This  option  asks  the  user  to  enter  the  number  of  states,  N,  the 
number  of  inputs,  M,  and  the  number  of  outputs,  P.  These  values  must 
be  entered  sequentially  as  N,  M,  and  P. 

OPTION  #3  —  Enter  A.  B.  C  &  D  Plant  Matrices 

This  option  enters  the  plant  A,  B,  £,  and  D  matrices.  Each  input 
has  the  same  format  and  the  user  enters  the  data  by  row  after  the  prompt 


After  each  matrix  is  entered,  its  values  are  automatically  echoed  back 
to  the  user  for  checking.  After  the  A,  B,  and  _C  matrices  are  entered, 
the  program  asks  if  there  is  a  D  matrix.  If  the  reply  is  negative, 
the  option  is  terminated,  and  the  program  sets  the  D  matrix  values  to 
zero. 

OPTIONS  #4  and  #5  —  Enter  Actuator/Sensor  State  Equation  Matrix  Data 

These  options  enter  or  eliminate  the  actuator  and  sensor  state 

equation  A,  B,  and  _C  matrices.  When  these  options  are  selected  the 

following  prompt  will  appears 

ENTER  ”0"  TO  ELIMINATE  ACTUATORS  /SENSORS 
ENTER  "1”  TO  SET  ACTUATOR/SENSOR  VAUJES...> 

If  ”1”  is  entered,  the  user  is  first  asked  to  enter  the  numoer  of 

states  of  each  actuator/sensor.  The  input  sequence  must  correspond 

to  the  sequence  of  the  actuators/sensors.  The  user  then  inputs  the 

A  matrix  values  by  row,  the  B  column  values  and  the  C  row  values  after 

each  prompt. 

OPTIONS  #6  and  #7  —  Reserved  Options 

OPTION  #8  —  Copy  G(o)  Data  from  Local  File 

An  alternate  data  input  mode  for  OPTION  #1  is  to  use  OPTION  #8. 

The  data  may  be  contained  in  any  local  file  and  need  not  contain  *E0R 

and  *E0F  statements.  The  file  should  not  be  a  permanent  file  called 

MEMO  and  if  it  is  a  local  file  by  that  name,  its  contents  will  be 

overwritten  upon  normal  program  termination.  The  file  must  be  in 

the  proper  format  as  shown  below: 

100=  2  Indicates  G(0)  information 

110=  3  3  M,P  values- 

120=  -1.  5.  0.  ) 

130=  1.  2.  7.  >  G(o)  matrix  values  by  row 

140=  1.2  4.  .123E01J 
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The  matrix  data  values  can  be  entered  in  any  format  (i.e.  real, 
integer,  etc.).  The  line  numbers  above  indicate  that  the  data  file  may 
be  created  in  the  CYBER  ''EDITOR"  (Ref  20) ,  however  the  line  numbers  must 
be  suppressed  when  the  file  is  saved  into  a  local  file.  For  example, 
to  save  data  values  into  a  file  named  DATA1,  the  EDITOR  command  iss 
..SAVE, DAT A1,N 

The  numbers  in  each  line  of  the  data  file  may  also  begin  in  column  one 
and  may  be  separated  by  commas. 

When  using  this  option,  the  program  asks  the  user  to  specify  and 
verify  the  name  of  a  local  file  which  holds  that  data.  The  data  is 
then  read  into  memory  and  the  user  can  verify  the  data  entries  by 
using  OPTIONS  #101  and  #102. 

OPTION  #9  —  Copy  Plant,  Actuator  and  Sensor  Info  from  Local  File 
The  option  copies  plant  state  equations,  actuator  and  sensor 
information  from  local  data  file  into  computer  storage  locations. 

The  file  name  restrictions  and  procedures  mentioned  in  the  OPTION  #8 
discussion  also  apply  to  this  option.  This  option  is  the  alternate  to 
OPTIONS  #2  through  #5.  The  following  lines  show  the  exact  format  for 

Indicates  state  equation  information 
N,M,P  values 

A  matrix  values  by  row 

B  matrix  values  by  row 

C  matrix  values  by  row 

Indicates  no  D  matrix 
Indicates  no  actuators 


the  data  file: 

100=  1 

110=  322 

120=  1.  5.5  7E-02) 

130=  .2  -1.2  0 

140=  .5  .005  99.1  ) 

150=  4.  0. ) 

160=  1.  1. 

170=  0.  1.  ) 

180=  0.  1  1.  I 
190=  1.  1.  1.1 
200=N 
210-N 


220-Y 
230-  1  2 
24 0-  -9999. 

250-  9999 
260-  1. 

270=  0.  1. 

280-  -888.063  -147.2 
290-  0.  293.141 
300=  1.  0. 


Indicates  sensor  data  follows 
#  of  states  of  sensor  #1  and  #2 
Sensor  #1  A  matrix  value 
Sensor  #1  B  matrix  value 
Sensor  #1  C  matrix  value 

Sensor  #2  A  matrix  values  by  row 

Sensor  #2  B  column  values 
Sensor  #2  C  row  values 


The  matrix  data  values  can  be  entered  in  any  format.  The  line  num¬ 
bers  must  be  suppressed  when  the  file  is  created  in  EDITOR  and  saved 
into  a  local  file.  The  *E0R  and  *E0F  entries,  normally  associated  with 
a  file,  are  not  required. 

When  using  OPTION  #9,  the  program  asks  the  user  to  specify  and 
verify  the  name  of  a  local  file  which  holds  the  data.  The  data. is 
then  read  into  memory  and  the  user  can  verify  the  data  entries,  if 
desired,  by  using  OPTIONS  #102  thru  #105. 

2.2  BLOCK  2  —  Design  Input  Options 

MULTI’ s  control  law  development  is  based  upon  forming  the  con¬ 
troller  matrix,  K,  from  proper  partitions  of  the  G(o)  or  A,  B,  _C,  and 
D  matrices  of  the  plant.  In  turn,  KO  and  K1  matrices  are  created 
using  the  scalar  variables  ALPHA  and  EPSILON.  The  equations  are: 
for  unknown  plants... 

u  (kT)  =  T  [  KO  *  e  (kT)  +  K1  *  z  (kT)  ] 
for  regular  or  irregular  plants... 

u  (kT)  =  f  [  KO  *  e  (kT)  +  K1  *  z  (kT)  ] 


(A-3) 

(A-4) 


where 


KO 

K1 

f 


ALPHA  *  EPSILON  *  K 
EPSILON  *  K 
1  /  T 


(A-5) 

(A-6) 

(A-7) 
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u  ■  input  vector 

_e  =  proportional  error  vector 

z  «=  integral  of  error  vector 

T  =  sampling  period 

The  K  matrix  in  Eqs.  (A— 5)  and  (A-6)  is  of  the  form  [  IT1  *  SIGMA.  ] 
where  SIGMA  is  a  diagonal  output  weighting  matrix,  and 
for  unknown  plants... 

H  =  G(0)  =  D-[C*A_1*B]  (Ar-8) 

for  regular  plants... 

H  =  [  C  *  B  ]  (A— 9) 

for  irregular  plants... 

H  =  [  F2  *  B2  ]  (A-10) 

In  the  irregular  case,  the  F2  matrix  is  the  right  partition  of 
the  augmentation  matrix,  F,  which  is  formed  as  follows: 

I  =  C  Ii  ,  F2  ]  =  [  Ci  +  M  *  An  »  ^2  +  ^  *  ^2  ]  (A^U) 

The  program  refers  to  the  matrix,  M,  in  Eq.  (A-ll)  as  the 
measurement  matrix. 

OPTION  #10  —  list  Options  10  thru  19 

This  option  lists  the  design  parameter  input  options  10  to  19. 

OPTION  #11  —  Enter  ALPHA 

This  option  is  used  to  set  the  proportion  of  integral  to  direct 
feedback  such  that: 

KO  =  ALPHA  *  K1  (A-12) 


( 


OPTION  #12  —  Enter  SIGMA  Weighting  Matrix 

In  this  option  the  SIGMA,  weighting  matrix  diagonal  elements  are 
entered.  This  matrix  is  used  in  forming  the  controller  matrix,  K, 
and  has  the  effect  of  weighting  the  different  inputs  and  outputs. 

OPTION  #13  —  Enter  EPSILON  (SIGMA  Matrix  Multiplier) 

The  SIGMA  matrix  multiplier,  6  ,  is  entered  using  this  option. 
EPSILON  is  used  as  shown  in  Eqs.  (A— 5)  And  (A— 6) • 

OPTION  #14  —  Run  Design... Unknown.  Regular  &  Irregular  Plants 

In  this  option  the  KO  and  IQ  matrices  are  formed.  The  user  is 
asked  to  enter  the  type  of  design  to  be  accomplished  and  the  reply 
can  be  either  the  full  word  or  a  single  character  (i.e.  U,  R,  or  I). 

When  using  an  unknown  design  with  state  equation  input  from  OPTION 
#3,  the  user  can  opt  to  printout  the  G(0)  matrix  after  it  is  formed. 

If  the  regular  design  is  used,  the  program  asks  if  the  user  wishes 
to  see  the  [  £  *  B  ]  matrix  after  it  is  formed. 

The  first  step  in  using  the  irregular  design  is  to  provide  the 
program  with  a  measurement  matrix.  If  the  measurement  matrix  is  formed 
in  OPTION  #  18,  previously  entered  in  this  option,  or  read  in  from  a 
data  file,  the  user  need  not  reinitialize  the  values  unless  they  are 
to  be  changed.  The  rows  of  the  matrix  are  entered  after  the  prompt  is 
given.  When  all  rows  are  received  by  the  program,  MJLTI  enters  the 
QJERY  Mode  and  requires  the  user  to  verify  the  values.  When  forming 
the  KO  and  K1  matrices,  the  user  has  the  option  of  printing  the  [F^  , 

Fg  ]  matrix. 

When  the  matrices,  KO  and  Kl,  are  formed,  MULTI  gives  the  user  the 
message: 
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KO  &  K1  MATRICES  FORMED 


and  the  specific  matrix  values  can  be  checked  by  using  OPTION  #114. 

OPTIONS  #15  thru  #17  —  Reserved  Options 

OPTION  #18  —  Measurement  Matrix  Formation,,,  or 

Row  &  Column  Operations  on  C  ♦  B  or  Other  Matrix 

This  option  has  two  functions  as  noted  by  the  title. 

In  forming  a  measurement  matrix  to  be  used  in  the  irregular  plant 

controller  design  of  OPTION  #14 »  the  user  must  enter  the  CESA  feedback 

gain  matrix,  K^,  for  CESA  Option  #38  (Ref  19:124).  MJITI  advises  when 

a  measurement  matrix  has  been  formed.  It  can  be  printed  by  using 

OFT  ION  #118. 

This  option  can  also  be  used  to  perform  simple  row  and  column 
operations  on  any  matrix.  There  is  provision  for  the  user  to  perform 
these  operations  on  the  [  C,  *  B  ]  matrix  without  entering  the  actual 
matrix  values.  Otherwise  the  user  must  enter  the  matrix  size  and  then 
the  row  values  after  each  prompt.  The  matrix  of  interest  can  be  no 
larger  than  10x10.  The  addition/subtraction  and  multiplication/division 
operations  are  defined  as  follows: 
enter  X,  Y,  and  Z  such  that... 

X  *  Y  +  Z  =  Z'  (A-13) 

X  *  Y  =  X'  (A-14) 

where 

X  =  row  or  column  number 
X*  =  modified  row  or  column  entered  into  matrix 
Y  =  multiplication/division  factor 
Z  =  row  or  column  number 

Z'  =  modified  row  or  column  entered  into  matrix 
After  each  operation  the  resulting  matrix  is  printed  so  that  the 
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next  operation  can  be  determined.  The  final  matrix  is  not  stored  into 
any  memory  location  for  future  use  in  other  options  and  is  destroyed 
at  the  termination  of  the  option. 


OPTION  #19  —  Copy  Design  Parameter  Data  from  Local  File 

This  option  is  used  as  an  alternative  to  OPTIONS  #11  thru  #14  and 


copies  design  parameter  data  from  a 

that  the  data  file  be  in  the  proper 

file  is  provided: 

100=U  or  R  or  I 
110=  2 
120=  .111 
130=  .5 

140=  4.6  4.6  4.6  ) 

150=  -4.6  -4.6  -4.6  [ 

160=  1.  1.  6.  ) 

170=  2.3  2.3  2.3  } 

180=  -2.3  -2.3  -2.3  } 

190=  .5  .5  3.  ) 

200=  .25  ) 

210=  0.  [ 

220=  0.  ) 


local  data  file.  As  it  is  mandatory 
format,  the  following  example 

Indicates  Unknown, Regular, Irregular 
ALPHA  value 

SI04A  matrix  diagonal  elements 
EPSILON  value 

KO  matrix  values  by  row 
K1  matrix  values  by  row 
Measurement  matrix  values  by  row 


If  the  ALPHA  value  is  1 ,  the  file  must  not  contain  K1  matrix 
values.  The  measurement  matrix  values  are  read  only  if  the  file  con¬ 
tains  data  for  an  irregular  plant  design.  The  line  numbers  above 
indicate  only  that  the  data  file  may  be  created  in  the  CYBER  "EDITOR". 
All  file  restrictions  and  procedures  of  OPTION  #8  apply  (substitute 


MEM10  for  MEMO  in  OPTION  #8  text). 


Prior  to  using  OPTION  #L9,  either  OPTION  #2  or  OPTION  #9  must  be 
used  to  set  the  values  for  the  number  of  inputs  and  outputs.  To  use 
OPTION  #19i  the  user  must  supply  and  verify  the  name  of  the  local  file 
which  holds  the  design  parameter  data.  The  program  reads  the  data  into 
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the  proper  memory  locations  and  the  user  can  verify  the  values  by 
choosing  OPTIONS  #111  to  #114  and  OPTION  #118. 

2.3  BLOCK  3  —  Simulation  Options 

The  simulations  options  of  this  block  are  used  to  evaluate  the 
controller  matrices  designed  in  OPTION  #14.  The  simulation  is  per¬ 
formed  after  the  user  provides  the  initial  values  of  the  states  and 
integrators,  the  command  input  vector,  and  the  necessary  time  parame¬ 
ters.  The  actual  simulation  run  is  accomplished  in  OPTION  #26.  The 
simulation  is  obtained  by  solving  a  set  of  ordinary  differential 
equations  formed  from  the  plant,  actuator,  and  sensor  state  equation 
matrices  and  is  run  from  time  zero. 

The  ASD  Library  subroutine  OEE  (Ref  21)  is  the  basis  for  the 
simulation.  The  user  should  be  familiar  with  this  subroutine,  or  as 
a  minimum,  have  access  to  ODE'S  error  descriptions. 

During  the  simulation  the  control  input  is  held  constant  over 
each  sampling  period.  Since  it  may  be  advantageous  to  observe  the 
system  output  between  sampling  5  r iods ,  the  user  can  specify  a  step 
time  less  than  the  sampling  time. 

As  the  simulation  is  run,  a  time-sequential  printout  of  input  and 
output  values  for  every  time  interval  of  the  simulation  run  can  be 
selected.  This  printout  includes  actual  input  and  controlled  input 
values  if  the  user  has  limited  the  inputs  to  certain  values.  If 
limitations  are  applied  to  the  input  values,  the  program  generates  a 
tabular  listing  of  how  often  the  limits  are  exceeded  during  the  simula¬ 
tion.  The  simulation  data  is  then  stored  in  a  matrix  for  later  print¬ 
out  or  for  plotting. 


OPTION  #20  —  List  Options  20  thru  29 

This  option  lists  the  simulation  options  from  20  to  29. 

OPTION  #21  —  Set  State  &  Integrator  Initial  Values 

In  this  option  the  user  specifies  the  state  and  integrator  values 
at  time  t=0.  At  present,  all  simulations  must  begin  at  zero  time  and 
proceed  forward.  The  initial  condition  values  for  the  states  are 
entered  after  the  first  prompt  message,  and  the  integrator  values  are 
entered  after  the  second  prompt  message.  The  values  for  each  must  be 
sequential. 

OPTION  #22  —  Set  Input  Command  Vector.  V 

This  option  is  used  to  select  the  specific  magnitude  for  each  of 
the  commanded  inputs.  At  present,  all  inputs  are  step  values.  The 
entries  for  the  input  command  vector  are  made  sequentially. 

OPTION  #23  —  Enter  Sample  Times 

The  sampling  times  are  entered  in  this  option.  There  may  be  up 
to  two  different  sampling  times  entered.  The  program  first  asks  how 
many  sampling  times  will  be  entered,  and  then  prompts  the  user  to  enter 
the  same  number  of  sampling  time  values. 

OPTION  #24  —  Enter  Simulation  Time,  TT 

OPTION  #24  is  used  to  enter  the  vime  length  for  the  simulation 
run.  The  user  is  cautioned  to  select  this  time  with  care  since  the 
combinations  of  simulation  time/sample  time  or  simulation  time/step 
time  determines  the  solution  interval  time.  If  the  simulation  time 
is  too  large,  subroutine  ODE  may  not  be  able  to  finish  a  simulation 
run  before  the  CYBER  CP  time  limit.  In  this  case,  MULTI  is  terminated 
without  warning  and  no  memory  files  are  generated. 
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OPTION  #25  —  Enter  Calculation  Step  Size,  ST 

As  mentioned  in  the  introduction  to  this  section,  the  system  input 
or  output  mlues  between  sampling  times  may  be  of  interest.  This  option 
allows  the  user  to  select  the  step  time  between  each  sampling  period. 

If  the  step  time  is  chosen  larger  than  the  sampling  time,  the  program 
proceeds  using  the  sampling  time  as  the  discrete  time  interval. 

OPTION  #26  —  Run  Simulation 

When  OPTION  #26  is  chosen,  MULTI  forms  and  solves  the  set  of 
ordinary  differential  equations  formed  from  the  plant,  actuator  and 
sensor  state  equations.  Very  fast  actuators  and  sensors  are  approx¬ 
imated  if  no  actual  values  have  been  entered,  and  the  user  receives 
messages  to  indicate  that  no  values  have  been  set.  The  user  also 
receives  a  message  that  no  control  limits  have  been  applied  to  the 
inputs,  if  such  is  the  case. 

MJLTI  runs  a  simulation  for  each  sampling  time  selected  in  OPTION 
#23.  As  the  program  proceeds  through  each  sampling  time,  the  user  is 
first  given  the  length  of  the  run,  the  step  time  and  the  sampling  time. 
The  user  is  then  told  how  many  time  increments  are  generated  during  the 
simulation  run.  The  user  can  opt  to  suppress  the  time-sequential 
listing  of  input/output  values.  The  message: 

- CALCULATIONS  IN  PROGRESS— 

is  provided  if  the  time-sequential  listing  is  suppressed,  since  the 
solution,  in  some  cases,  may  take  several  seconds. 

If  the  number  of  time  increments  over  the  simulation  time  interval 
is  greater  than  100,  the  input/output  data  must  be  "packed"  into  a 
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matrix  for  later  use  in  plotting  or  providing  a  tabular  listing  of 
the  input /output  values.  When  this  occurs,  missing  time  increments 
are  noted  when  the  tabular  data  of  input/output  values  are  listed. 
However,  the  user  can  always  obtain  a  full  list  of  these  values  by 
choosing  a  time- sequential  listing. 

At  the  conclusion  of  each  simulation  run,  the  program  provides 
a  table  telling  how  many  times  the  input  values  exceeded  the  limitations 
chosen  in  OPTION  #27.  This  listing  is  not  retained  in  memory  and  can 
be  accessed  only  once. 

The  tabular  listing  of  the  input/output  data  points  for  each 
sampling  time  can  be  obtained  from  OPTION  #126. 

OPTION  #27  —  Set  Control  Input  Limits 

In  this  option  the  user  can  set  input  control  limitations.  The 
program  supplies  the  correct  directive  on  how  to  enter  the  limits 
and  provides  proper  messages  when  the  limitations  are  to  be  entered. 

The  user  enters  the  number  corresponding  to  the  input  which  is  to  be 
limited,  and  then  gives  the  minimum  and  maximum  values  of  the  limitation. 

This  option  can  also  be  used  to  eliminate  control  input  limitations 
if  they  are  previously  entered. 

To  obtain  a  listing  of  the  current  input  limits,  OPTION  #127  is 

used. 

OPTION  #28  —  Reserved  Option 

OPTION  #29  —  Copy  Simulation  Parameters  for  a  Local  File 

This  single  option  is  used  to  enter  state  and  integrator  initial 
values,  command  vector  values,  sampling  times,  simulation  run  length 
and  interval  step  time.  It  can  be  used  as  an  alternate  to  OPTIONS  #21 


87 


through  #25.  The  reader  should  refer  to  the  discussion  of  OPTION  #3 

for  additional  information  relating  to  file  structure  and  related 

procedures  (substitute  MEM20  for  MEM)  in  OPTION  #8  text). 

The  data  file  must  follow  the  format  shown  below: 

100=  0.  0.  0.  Initial  state  values 

110=  0.  0.  Initial  integrator  values 

120=  1.  -1.  Command  vector  values  (transposed) 

130=  2  .01  .02  #  of  sampling  times,  sampling  periods 

140=  3.  Simulation  run  time 

150=  .01  Step  time 

As  with  the  other  data  file  examples  in  OPTION  #8,  OPTION  #9,  and 
OPTION  #19,  the  line  numbers  above  only  indicate  that  the  data  matrix 
may  be  created  in  EDITOR,  and  must  be  suppressed  when  the  file  is  saved 
into  a  local  file.  The  *E0R  and  *E0F  terminators  are  optional. 

Prior  to  using  this  option,  the  number  of  states,  inputs  and 
outputs  must  be  set  by  using  OPTION  #2  or  OPTION  #9.  To  use  OPTION  #29 
the  user  must  enter  and  verify  the  name  of  the  local  file  which  holds 
the  simulation  data.  After  the  program  reads  the  data  into  memory, 
the  user  can  verify  the  entries  by  using  OPTIONS  #21  to  #25. 

2.4  BLOCK  4  —  Plotting  Options 

An  integral  aspect  of  any  design  is  the  ability  to  quickly  inter¬ 
pret  and  analyze  the  results.  The  quickest  method  of  analyzing  results 
is  to  see  them  in  either  tabular  or  graphical  form.  MCIiTI  provides  the 
user  with  two  types  of  graphical  interpretation  tools. 

The  first  and  fastest  tool  is  a  quick  sketch  at  the  user’s  terminal 
of  any  combination  of  input/output  responses.  The  second  tool  is  a 
CA1C0MP  plot.  Each  has  its  own  advantages  and  limitations.  The  use  of 
both  is  explained  in  this  section. 
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To  provide  a  plot,  MJITI  requires  several  questions  to  be  answered 
concerning  what  data  is  to  be  plotted.  OPTIONS  #31,  #32,  and  #33  pro¬ 
duce  terminal  plots,  and  OPTIONS  #34,  #35*  and  #36  produce  CA100MP 
plots.  After  using  OPTION  #3l/0PTI0N  #34,  the  user  becomes  aware  that 
an  easier  method  of  requesting  plots  is  required.  In  this  light,  a 
shortened  version  of  requesting  plots  is  available  by  using  OPTION  #32/ 
#35.  Finally,  if  the  user  desires  the  same  information  to  be  plotted 
after  another  simulation  (i.e.  output  #2  vs.  input  #3)  and  has  already 
entered  these  choices  by  using  OPTION  #31  or  #32/0PTI0N  #34  or  #35,  an 
immediate  plot  can  be  generated  by  using  OPTION  #33/0PTI0N  #36. 

OPTION  #30  —  list  Options  30  thru  39 

This  option  lists  the  simulation  options  from  30  to  39. 

OPTIONS  #31  thru  #36  —  Terminal  Plots  and  CALCOMP  Plot3 

When  OPTION  #26  has  been  completed,  MJLTI  has  formed  and  stored 
a  three-dimensional  matrix  of  data  values.  For  this  discussion  it 
is  only  necessary  to  explain  that  the  row  dimension  is  equivalent  to 
the  input  or  output  values  at  each  time  increment,  the  column  dimen¬ 
sion  is  equivalent  to  the  input  or  output  number,  and  the  third 
dimension  is  equivalent  to  the  sampling  time.  A  plot  is  generated 
after  a  user  chooses  the  type  of  plot  to  be  generated,  the  sampling 
time  of  interest,  input  or  output,  the  number  of  inputs  or  outputs 
and  the  particular  inputs  or  outputs  of  interest.  After  this  infor¬ 
mation  is  received,  MJLTI  can  proceed  with  plotting  the  correct  data 
matrix  rows  and  columns. 

There  are  four  basic  types  of  plots  that  can  be  obtained: 
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for  a  single  sampling  time... 

1.. .a  plot  of  up  to  2  input  and  output  pairs 

2.. . a  plot  of  up  to  4  inputs  or  outputs 

3. . .a  plot  of  up  to  4  different  simulations 

(for  any  single  input  or  output 

or  for  up  to  4  different  sampling  times... 

4.. . a  plot  of  any  single  input  or  output 

For  the  third  type  of  plot,  the  user  returns  to  the  main  program  to  run 
another  simulation  and  then  re-enters  the  plotting  routine.  The  plot 
is  generated  after  all  simulations  are  run.  When  planning  to  plot  data 
for  two  different  sampling  times,  it  is  mandatory  that  the  step  time, 
for  the  simulation  runs,  be  equal  to  or  less  than  the  smallest  sampling 
time.  The  simulations  must  also  be  run  for  the  same  length  of  time. 

The  program  provides  a  warning  indicating  these  restrictions.  If  these 
restrictions  are  not  followed,  MJLTI  is  terminated  early  and  no  data 
files  are  generated  by  the  program. 

OPTIONS  #31  through  #>3  pertain  to  terminal  plots,  or  quick 
sketches  at  the  user's  terminal.  OPTIONS  #34  through  #36  are  for 
CALOOMP  plots.  As  mentioned  above,  there  are  shortened  versions  of 
both  the  terminal  plot  and  CALCOMP  plot  requests.  The  same  plots  are 
obtained  with  these  shortened  versions  as  are  produced  by  using  the 
full  versions.  The  difference  lies  in  entering  the  data  for  the  plot. 

The  shortened  versions  included  in  OPTIONS  #32  and  #35  merely 
suppress  the  informational  prompts  that  are  available  with  OPTIONS 
#31  and  #34.  The  user  simply  enters  the  plotting  type,  input  or 
output,  and  the  needed  plotting  data  for  the  plotting  type  chosen. 

These  two  options  are  not  reconmended  for  the  inexperienced  MJLTI  user. 
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If  using  these  two  options,  the  needed  plotting  data  is  as  follows: 

Type  #1  —  Input/Output  Pairs 

ENTER...#  of  pairs  (OPTION  #35  only),  sampling  time  #, 
input  #s,  output  #s 

Type  #2  —  Inputs  or  Outputs 

ENTER. ..sampling  time  #,  #  of  inputs/outputs,  input/output  #s 
Type  #3  —  Multiple  Simulations 

ENTER...#  of  simulations,  sampling  time  #,  input/output  # 
Type  #4  —  Multiple  Sampling  Times 

ENTER...#  of  sampling  times,  sampling  times,  input/output  # 
Once  the  information  for  a  plot  has  been  entered  by  using  OPTIONS 
#31,  #32,  #33  or  #34,  the  user  can  return  to  the  program  to  change 
parameters  and  run  a  new  simulation,  and  then  choose  OPTIONS  #33  or  #36 
to  obtain  a  plot.  This  plot  of  the  new  simulation  data  is  a  plot  of 
the  same  type  as  previously  requested. 

The  CALCOMP  plots  are  stored  in  a  local  file  called  PLOT  which 
the  user  can  route  to  the  plotter  after  MJLTI  is  terminated  (see 
.'tion  2.6).  Local  restrictions  permit  no  more  than  five  plots  on  one 
plotting  file,  thus,  MJLTI  advises  the  user  when  five  plots  have  been 
generated.  All  CALCQMP  plots  are  bordered  by  a  rectangular  box  which 
is  6x9  inches  in  size.  The  plotting  size  factor  is  entered  as  "1"  for 
this  size  of  CALCOMP  plot,  but  the  size  can  be  varied  by  changing  the 
size  factor.  The  user  is  also  required  to  provide  two  titles  for  the 
plot.  The  X-axis  is  always  labeled  ''TIME";  the  user  selects  the  title 
to  be  placed  along  the  Y-axis  of  the  plot.  The  Y-axis  title  can  be 
no  more  than  30  characters  in  length.  The  user  must  also  provide 
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an  overall  title  for  the  plot  which  is  drawn  below  the  lower  nine 
inch  side  of  the  rectangle.  This  main  title  can  be  up  to  60  characters 
long.  For  both  title  entries,  tile  user  should  center  the  plot  title 
between  the  prompts  so  that  the  titles  will  be  centered  on  the  CALOOMP 
plots 

>  center  title  between  prompts  < 

OPTIONS  #37  thru  #39  —  Reserved  Options 
2.5  BLOCK  5  —  Printing  Options 

All  available  options  in  this  block  print  data  which  the  user 
has  entered  using  the  options  in  BLOCKS  1  to  4. 

OPTION  #100  —  List  Options  100  thru  130 

This  option  lists  the  printing  options  from  100  to  130. 

OPTIONS  #101  to  #129  —  Print  Data  Entered  in  OPTIONS  #1  to  #29 
As  explained  in  Section  1.2,  the  options  in  this  range  are 
related  to  the  sub-100  numbered  options.  To  print  out  the  data 
entered  by  OPTION  #1,  the  user  selects  OPTION  #101;  to  print  out  the 
data  entered  by  OPTION  #2,  the  user  selects  OPTION  #102;  etc. 

OPTION  #103  prints  out  the  data  from  OPTION  #2  and  then  gives 
the  user  the  option  of  selecting  the  A,  B,  £,  or  D  matrix  from 
OPTION  #3. 


ALPHA  and  EPSILON  are  combined  in  one  printout  and  obtained  by 
selecting  OPTIONS  #111  or  #L13. 

OPTION  #114  prints  out  the  control  matrices,  KO  and  Kl_,  from 
OPTION  #14  and  also  prints  out  a  heading  explaining  which  type  of  plant 
(unknown,  regular,  irregular)  the  user  chose  in  generating  the  matrices. 
If  this  heading  is  suppressed,  the  program  is  unsure  of  how  the  matrices 


were  generated,  but  the  values  displayed  are  still  the  current  KO  and 
K1  matrices. 

The  data  from  OPTIONS  #21  and  #22  are  also  combined  into  one 
printout  and  the  user  obtains  both  sets  of  data  when  selecting  OPTION 
#121  or  OPTION  #L22. 

The  same  is  true  for  the  sampling  times,  simulation  time,  and 
calculation  step  size.  They  form  one  printout  and  can  be  printed  by 
selecting  OPTION  #123,  #124,  or  #125. 

When  OPTION  #126  is  entered,  the  user  is  required  to  choose  the 
tabular  listing  for  the  input  or  the  output  data.  The  full  word, 

INHJT  or  (XJTlUT,  must  be  entered  and  spelled  correctly  for  the  program 
to  continue  properly. 

OPTION  #130  —  list  Plotting  Selections  (currently  not  available) 

This  single  option  is  used  to  determine  the  current  plotting 
selections  from  the  last  entry  to  OPTIONS  #31  to  #36.  When  chosen, 
the  program  tells  J’he  user  if  the  data  is  for  a  terminal  plot  or  a 
CALOOMP  plot  and  then  gives  the  current  plotting  choices. 

2.6  MULTI  Generated  Memory  Files 

When  OPTION  #99  is  used  to  end  MULTI,  there  are  three  data  files 
generated.  A  file  called  MEMO  is  formed  from  the  data  entered  from 
option  BLOCK  1;  a  file  called  MEM10  is  created  from  the  data  entered 
from  BLOCK  2;  a  file  called  MEM20  is  opened  to  hold  the  data  entered 
in  option  BLOCK  3.  These  files  are  local  files  and  should  be  rewound 
using  the  commands 

COMMAND-  REWIND, (FILENAME) 


before  they  are  stored  into  permenent  file  space,  edited,  or  cataloged 


Another  file  called  PLOT  is  also  generated  if  the  user  selects  any  of 
the  CALOOMP  plotting  options.  This  file  should  also  be  rewound  before 
it  is  routed  to  the  plotter. 

The  routing  command  for  MEMO,  MEMIO,  and  MEM20  is: 

COMMAND-  ROUTE ,  MEJ# , DC-FR , T ID»91 ,  *'ID=XmX ,  ST = CSB 
and  the  routing  command  for  PIOT  is: 

COMMAND-  ROUTE, PLOT, DC=Pr,TID=91,FID=XXm,ST=CSB 

The  routing  commands  send  the  files  to  the  facilities  at  AfTT. 

The  user  can  choose  any  five  letter  "flag  ID"  designated  above  as 
"XXXXX". 

3.  Summary  of  MULTI* s  OPTIONS 

MULTI  contains  four  main  option  BLOCKS  which  have  ten  options  each, 
and  30  printing  options.  The  MULTI  options  are  summarized  on  the 
computer  listing  that  follows  this  section. 

To  obtain  a  controller  design  and  simulation  these  option  numbers, 
in  the  following  order,  are  generally  used: 
for  unknown  plants ... 

1  (or  9)j  11,  12,  13,  If  n  . 

or  2,  3  (or  9);  11  to  14U  (or  19);  21  to  25  (or  29),  26;  31  to  36 

for  regular  plants... 

2,  3  (or  9);  11  to  1Z*R  (or  19);  21  to  25  (or  29),  26  ;  31  to  36 
for  irregular  plants... 

2,  3  (or  9);  11  to  141  (or  19);  21  to  25  (or  29),  26;  31  to  36 
If  a  measurement  matrix  is  to  be  generated  for  the  irregular  case, 
OPTION  #18  should  be  used  prior  to  OPTION  #14.  In  all  cases,  OPTIONS 
#4,  #5  and  #27  (which  set  specific  actuator,  sensor  and  input  control 
limits)  should  be  used,  if  desired,  prior  to  OPTION  #26. 
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OPTION.  PLEASE  >  *0 


PLANT  INPUT  OPTIONS! 

0.  LIST  OPTIONS  0  THRU  9 

1.  ENTER  G<0)  MATRIX 

2.  ENTER  *  OF  STATES.  INPUTS  &  OUTPUTS  (N.M.P) 

3.  ENTER  PLANT  A.  B.  C.  &  D  MATRICES 

4.  ENTER  ACTUATOR  STATE  EQUATION  MATRIX  DATA 

5.  ENTER  SENSOR  STATE  EQUATION  MATRIX  DATA 

6.  OPTION  RESERVED 

7.  OPTION  RESERVED 

8.  COPY  G<  0  )  INFO  FROM  LOCAL  FILE 

9.  COPY  PLANT.  ACTUATOR  &  SENSOR  INFO  FROM  LOCAL  FILE 


OPTION.  PLEASE  >  410 

DESIGN  PARAMETER  INPUT  OPTIONS: 

10.  LIST  OPTIONS  10  THRU  19 

11.  ENTER  ALPHA 

12.  ENTER  SIGMA  WEIGHTING  MATRIX 

13.  ENTER  EPSILON  (SIGMA  MATRIX  MULTIPLIER) 

14.  RUN  DESIGN... UNKNOWN.  REGULAR  &  IRREGULAR  PLANTS 

15.  OPTION  RESERVED 

16.  OPTION  RESERVED 

17.  OPTION  RESERVED 

18.  MEASUREMENT  MATRIX  FORMATION. . .OR 

ROW  &  COLUMN  OPERATIONS  ON  C*B  OR  OTHER  MATRIX 

19.  COPY  DESIGN  PARAMETERS  FROM  LOCAL  FILE 


OPTION.  PLEASE  >  #20 
SIMULATION  OPTIONS: 


20. 

LIST  OPTIONS  20  THRU  29 

21. 

SET  STATE  &  INTEGRATOR  INITIAL  VALUES. 

X(0>  &  Z(0) 

22. 

SET  INPUT  COMMAND  VECTOR.  V 

23. 

ENTER  SAMPLE  TIMES 

24. 

ENTER  SIMULATION  TIME 

25. 

ENTER  CALCULATION  STEP  SIZE 

26. 

RUN  SIMULATION 

27. 

SET  CONTROL  INPUT  LIMITS 

28. 

OPTION  RESERVED 

29. 

COPY  SIMULATION  PARAMETERS  FROM  LOCAL 

FILE 
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OPTION*  PLEASE  >  #30 


PLOTTING 

options; 

30. 

LIST  OPTIONS  30  THRU  39 

31. 

QUICK  SKETCH  AT  USER'S  TERMINAL 

32. 

QUICK  SKETCH— SHORT  VERSION 

33. 

QUICK  SKETCH— RETAINING  SAME 

PLOTTING 

CHOICES 

34. 

CALCOMP  PLOT 

35. 

CALCOMP  PLOT— SHORT  VERSION 

36. 

CALCOMP  PLOT— RETAINING  SAME 

PLOTTING 

CHOICES 

37. 

OPTION  RESERVED 

38. 

OPTION  RESERVED 

39. 

OPTION  RESERVED 

OPTION, 

PLEASE  >  *100 

ALL  100-SERIES  OPTIONS  PRINT  DATA  VALUES... 

FOR  VALUES  SET  IN  OPTION  #1...USE  OPTION  #101 
FOR  VALUES  SET  IN  OPTION  #2... USE  OPTION  *102 

ETC. 

FOR  PLOTTING  SELECTIONS . USE  OPTION  #130 


4.  Example  for  Irregular  Plants 

This  manual  is  concluded  with  a  computer  generated  design  and 
simulation  for  an  irregular  plant.  The  plant  is  defined  by  the 
following  matrices  for  the  state  and  output  equations: 


"o.o 

1.1320 

0.0 

0.0  1.0 

0.0 

0.0 

0.0 

1.0  0.0 

0.0 

-0.1712 

-0.0538 

0.0  0.0705 

(A-15) 

0.0 

0.0 

0.0485 

-0.8536  -1.013 

0.0 

0.0 

-0.2909 

1.0532  -0.6859. 

0.0 

0.0 

-0.0012 

0.4419  0.1575 

0.0 

0.0 

1.0 

0.0  0.0 

(JU16) 

0.0 

0.0 

0.0 

-1.6646  -0.0732 
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1.0 

0.0 

0.0 

0.0 

0.0 

c  . 

0.0 

0.0 

1.0 

0.0 

0.0 

(A~17) 

0.0 

1.0 

0.0 

0.0 

0.0 

and  the  following  parameter 

values 

are  used 

in  the  designs 

ALPHA.  =  1.0 

SIGMA  =  diag  [  1 

EPSILON  =1.0 

All  Initial  Values  =  0 

Command  Vector,  V  =  [  1  ,  0 

Sampling  Time  =  .02 

Simulation  Time  =  4.0 

Calculation  Step  Size  =  .02 


,  1  , 

0  ] 


1  ] 


The  computer  printout  includes  a  terminal  plot  of  output  #1,  #2,  and 
#3.  Note  that  when  values  are  duplicated,  the  terminal  plot  symbols 
will  overwrite  each  other  (i.e.  output  #3  values  overwrite  output  #2 


values).  The  CALC0MP  plot  of  the  same  information  is  included  as 


Fig.  A-l. 
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COMMAND-  EDITOR 
..C 

100=1 
110=5t3t3 
120=0>1.132'0'0'1 
130=0»0»0» 1»0 

140=0»~* 1712 »-.0538» 0» .0705 
150=0f0f .0485f-.8536f-l.013 
160=0 f Of-. 2909 f 1 .0532 f-,6859 
170=0f Of 0 

180=0f Of  0 

190=-.0012f lfO 
200=. 4419f0f-l. 6646 
210=. 1575f0f-. 0732 

220=lf0t OfOf 0 

230=0. Of  1 f Of  0 
240=0f 1 f Of Of 0 
250=N0 
260=N0 
270=N0 
280== 

. .SAVEtEXAMPLEf N 
« ♦  B  f  B 

COMMAND-  MULTI 


WELCOME  TO  MULTIVARIABLE  DESIGN 
C  1981  PORTER  f  SMYTH  fF'ASCHALL 

THIS  PROGRAM  USES  THE  DESIGN  TECHNIQUES  DEVELOPED  BY 
PROFESSOR  BRIAN  PORTER f  UNIV.  OF  SALFORD f  ENGLAND 


OPTION.  PLEASE  >  *9 

THIS  OPTION  COPIES  STATE  EQN  INFO  FROM  A  LOCAL  DATA  FILE 

ENTER  LOCAL  FILE  NAME  THAT  HOLDS  STATE  EQN  INFORMATION 
>EXAMPLE 

LOCAL  FILE  NAME  IS  >E!  AMPLE 

IS  THIS  CORRECT... YESfNOf$...>YES 

DATA  COPY  COMPLETE  FOR  OPTIONS 
*2f  #3 
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OPTION »  PLEASE  >  #11 


THIS  OPTION  SETS  THE  PROPORTION  OF  INTEGRAL  AND  DIRECT  FEEDBACK 
ENTER  ALPHA  >1 

OPTION,  PLEASE  >  #12 

THIS  OPTION  SETS  THE  WEIGHTING  BETWEEN  OUTPUT  CHANNELS 

ENTER  SIGMA  WEIGHTING  MATRIX... 3  DIAGONAL  ELEMENTS  ONLY 
DIAGONAL  ELEMENTS  >1*1*1 

OPTION.  PLEASE  >  *13 

THIS  OPTION  SETS  THE  WEIGHTING  MATRIX  MULTIPLIER 
ENTER  SIGMA  MATRIX  SCALAR  MULTIPLIER.  EPSILON  >1 

OPTION,  PLEASE  >  #14 

ENTER  DESIGN  METHOD. . .UNKNOWN, REGULAR, IRREGULAR. . ,>IRREGULAR 

THIS  OPTION  COMPUTES  KO  &  K1  FOR  IRREGULAR  PLANTS 

ENTER  '1“  TO  REINITIALIZE  MEASUREMENT  MATRIX,  ELSE  ENTER  "0"  >1 

ENTER  M  MATRIX... 3  ROWS  WITH  2  COLUMNS 
ROW  1  >.25,0 
ROW  2  >0,0 
ROW  3  >0, .25 

MEASUREMENT  MATRIX... 

.2500E+00  0. 

0.  0. 

0.  . 2500E+00 

IS  THIS  CORRECT... YES.NO,*. . ,>YES 

ENTER  "0"  TO  SKIP  F=CF1,F23  MATRIX 

ENTER  "1"  TO  OBTAIN  THIS  DATA  PRINTOUT. . .>1 


rsTgcsessamBBa 


99 


F=CF1»F23  MATRIX. . . 


» 1000E+01 

. 2830E+00 

0. 

0. 

.2500E+00 

0. 

0. 

. 1000E+01 

0. 

0. 

0. 

. 1000E+01 

0. 

. 2500E+00 

0. 

KO  &  K1  MATRICES  FORMED 

OPTION,  PLEASE  >  #114 

CONTROL  MATRICES  ARE  FOR  PLANTS  WHICH  ARE  IRREGULAR 


KO  MATRIX... 


.2897E+02 

0. 

-.1274E+01 

.3477E-01 

, 1000E+01 

-. 1529E-02 

.7691E+01 

0. 

-.2741E+01 

K1  MATRIX  IS 

IDENTICAL  TO 

KO  MATRIX 

OPTION,  PLEASE  >  #21 

THIS  OPTION  SETS  THE  INITIAL  CONDITION  VECTORS  FOR  THE  STATES  &  INTEGRATORS 

ENTER  THE  X( 0 )  VECTOR  OF  5  ELEMENTS 

>0,0, 0,0,0 

ENTER  THE  Z( 0 )  VECTOR  OF  3  ELEMENTS 

>0,0,0 

OPTION,  PLEASE  >  *22 

THIS  OPTION  SETS  THE  INPUT  COMMAND  VECTOR,  V 

ENTER  THE  V  VECTOR  OF  3  ELEMENTS 
"V"  COLUMN  >1,0,0 

OPTION,  PLEASE  >  *23 

THIS  OPTION  SETS  THE  SAMPLING  TIME  FOR  EACH  RUN 

ENTER  NUMBER  (MAX  OF  2 )  OF  SAMPLING  TIMES  >1 
ENTER  1  SAMPLING  TIME(S)  >.02 


OPTION*  PLEASE  >  *24 


THIS  OPTION  SETS  THE  TOTAL  SIMULATION  TIME 
ENTER  TOTAL  TIME  >4 

OPTION,  PLEASE  >  *25 

THIS  OPTION  SETS  THE  CALCULATION  STEP  SIZE 
ENTER  STEP  SIZE  >.02 

OPTION,  PLEASE  >  *26 

THIS  OPTION  RUNS  THE  SIMULATION  IF  ALL  DATA  IS  AVAILABLE 

SIMULATION  INCLUDES  NO  ACTUATORS 
SIMULATION  INCLUDES  NO  SENSORS 
SIMULATION  INCLUDES  NO  CONTROL  LIMITS 

RUN  TIME=4.  STEP  TIME=.02  SAMPLE  TIME=.02 

THERE  ARE  200  TIME  INCREMENTS 

ENTER  "0"  TO  SKIP  SEQUENTIAL  LISTING 
ENTER  "1"  TO  OBTAIN  THIS  BATA...>0 

- CALCULATIONS  IN  PROGRESS - 

SIMULATION  FOR  SAMPLING  TIME  *1  COMPLETE 


OPTION,  PLEASE  >  *31 

THIS  OPTION  PRODUCES  A  PLOT  AT  YOUR  TERMINAL 
PLEASE  CHOOSE  ONE  OF  THE  FOLLOWING? 

FOR  A  SINGLE  SAMPLING  TIME 

1.. .A  PLOT  OF  UP  TO  2  INPUT  AND  OUTPUT  PAIRS 

2.. . A  PLOT  OF  UP  TO  4  INPUTS  OR  OUTPUTS 

3.. . A  PLOT  OF  UP  TO  4  DIFFERENT  SIMULATIONS 

(FOR  ANY  SINGLE  INPUT  OR  OUTPUT) 

OR  FOR  UP  TO  4  DIFFERENT  SAMPLING  TIMES 

4.. . A  PLOT  OF  ANY  SINGLE  INPUT  OR  OUTPUT 


ENTER  CHOICE  DESIRED  >2 


CHOICE  #2... YOU'VE  CHOSEN  TO  PLOT  INPUTS  OR  OUTPUTS 

YOU  HIGHT  HAVE  SELECTED  TO  RUN  SEVERAL  SAMPLING  TIMES... 
DESIGNATE  THESE  SAMPLING  TIMES  AS...1,2>3>  ETC... 

ENTER  THE  1  SAMPLING  TIME(S)  OF  INTEREST  >1 


ENTER... INPUT  OR  OUTPUT... FOR  YOUR  PLOT  >OUTPUT 


HOW  MANY  OUTPUTS  DO  YOU  WANT  TO  PLOT  >3 


WHICH  OUTPUT(S)  DO  YOU  WANT  TO  PLOT... 

ENTER  THE  3  CORRESPONDING  COLUMN  NUMBER*  S )  >1.2»3 

FOR  NO  GRID  ON  PLOT  ENTER  "0M»  FOR  A  GRID  ENTER  "l*  >1 


1.05  -+ - + - + - + - + - + - + - + - + - + - + 

I  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

.939  -+  +  XXXX+  +  +  +  +  +  +  +  + 

I  XXX  I 

.827  -+X  +  +  +  +  +  +  +  +  + 

I  X  I 

.715  -+  X  +  +  +  +  +  +  +  +  +  + 

I  X  I 

.603  -+  +  +  +  +  +  +  +  +  +  + 

I  X  I 

,491  -t  +  +  +  +  +  +  +  +  +  + 

I  X  I 

.378  -+  +  +  +  +  +  +  +  +  +  + 

I  X  I 

.266  -+  +  +  +  +  +  +  +  +  +  + 

IX  I 

,154-+  +  +  +  +  +  +  +  +  +  + 

I  I 

4.228E-02-X  +  +  +  +  +  +  +  00+0  +0  0  0+ 

*«:|tf**t****tm**ttKX*l*M*tV**********t**tx*tt*xx*txxyt**x** 

-6.979E-02-+ - + - + - + - + - + - + - + - + - + - + 


0.  3.98 


CURVE  X  ABOVE  IS  OUTPUT  1 
CURVE  0  ABOVE  IS  OUTPUT  2 
CURVE  *  ABOVE  IS  OUTPUT  3 


t 
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OPTION.  PLEASE  >  *35 


THIS  OPTION  PRODUCES  A  CALCOMP  PLOT 

ENTER  SHORT  VERSION  CHOICE. . ,1.2. 3.4. . .>2 
ENTER... INPUT, OUTPUT... >OUTPUT 
ENTER  PROPER  PLOT  DATA. . .>1.3. 1.2. 3 
ENTER  TITLE  FOR  Y-AXIS  OF  PLOT  (MAX  OF  30  CHARACTERS) 
>  RESPONSE  < 

TITLE  IS!  RESPONSE 

IS  THIS  CORRECT... YES. NO. *...>YES 


ENTER  MAIN  PLOT  TITLE  (MAX  60  CHARACTERS) 

>  FIG.  A-l  EXAMPLE  —  IRREGULAR  PLANT 

MAIN  TITLE:  FIG.  A-l  EXAMPLE  —  IRREGULAR  PLANT 

IS  THIS  CORRECT... YES. NO. *...>YES 

ENTER  PLOT  SIZE  FACTOR. . .>1 . 8 


LOCAL  FILE  “PLOT"  CONTAINS  THE  CALCOMP  DATA  FOR  THIS  ENTRY  TO  OPTION  *35 
YOU  HAVE  GENERATED  A  TOTAL  DF  2  PLOT(S) 

BE  SURE  TO  ROUTE  "PLOT"  TO  THE  PRINTER  BEFORE  LOGOUT 


OPTION,  PLEASE  >  *99 

ALL  PLANT  INPUT  DATA  HAS  BEEN  SAVED  IN  A  LOCAL  FILE 
CALLED  "MEMO" 

ALL  DESIGN  DATA  HAS  BEEN  SAVED  IN  A  LOCAL  FILE 
CfV.LED  "MEM10" 

ALL  SIMULATION  DATA  HAS  BEEN  SAVED  IN  A  LOCAL  FILE 
CALLED  “MEM20" 


HAVE  A  NICE  DAY! 

STOP 

56600  MAXIMUM  EXECUTION  FL. 

18.655  CP  SECONDS  EXECUTION  TIME. 

COMMAND-  REMIND .PLOT 

COMMAND-  ROUTE»PLOT,DC=PT»TID=90»F1D=IRREG»ST=CSB 
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.50  2.00  2.50  5.00  5.50  4.00 

TIME,  SECONDS _ 

EXAMPLE  —  IRREGULAR  PLANT 


1 .  Introduction 


This  guide  provides  the  documentation  needed  for  future  modifi¬ 
cations  to  MJLTI.  It  is  also  intended  to  help  a  programmer  analyze 
the  flow  structure  of  the  program  so  that  MUITI  can  be  modified  if 
unexpected  errors  occur.  This  manual  describes  the  overlay  structure, 
local  and  attached  subroutines  and  the  names  of  all  elements  of  the 
program. 

MULTI  is  written  in  FORTRAN  V  and  is  fully  documented  by  COMMENT 
statements  throughout  the  program.  The  program  structure  is  such  that 
programmers  familiar  with  FORTRAN  V  can  understand  MUITI*  s  operation. 

The  programmer  should  have  a  full,  working  knowledge  of  the 
theory  behind  the  design  of  discrete-time,  error-actuated  controllers 
for  linear,  multivariable  plants  as  developed  by  Professor  Brian 
Porter,  University  of  Salford,  England  (Refs  4;  5;  and  6).  The  pro¬ 
grammer  should  also  have  used  MULTI  interactively. 

MULTI  retains  the  code  from  the  University  of  Salford  which  deals 
with  measurement  matrices  for  the  .C  and  G(o)  matrices.  These  measure¬ 
ment  matrices  are  not  utilized  in  the  current  design  code,  and  thus 
throughout  MUITI,  the  following  matrix  identities  exists 


CM 

(I,J)  «=  c  (l,J) 

(B-1) 

gSp 

(I,J)  *  GO  (I,J) 

(B-2) 

The  reader  should  obtain  a  MUITI  source  listing  before  continuing 

105 


with  this  guide  and  have  a  CDC  FORTRAN  V  Reference  Manual  (Ref  15)  and 
a  CDC  Loader  Reference  Manual  (Ref  16)  available*  A  source  listing 
is  available  from  the  Engineering  Department  at  ATTT.  Other  program¬ 
ming  guides  which  may  be  helpful  to  a  potential  MULTI  programmer 
include: 

IMSL  Library  Reference  Manual  (Ref  14) 

ASD  Computer  Center  CALCOMP  Plotting  Guide  (Ref  22) 

Solution  of  Ordinary  Differential  Equations  on  the  CDC  6600/CYBER 
74  Processors  (Ref  21) 

Computer  Printout  for  Subroutine  PLOT IT  (Ref  23) 

2.  Description  of  Overall  Structure 

MULTI  is  written  to  provide  a  user  with  an  interactive  design 
tool  for  the  design  of  control  laws  needed  to  attain  tracking  and 
disturbance  rejection  in  a  multi-variable  plant.  It  is  necessary  for 
the  program  to  have  the  capability  of  evaluating  the  input  and  output 
responses  after  the  control  law  is  simulated.  In  addition,  it  is 
necessary,  for  an  iterative  design  approach,  that  the  program  retain 
all  input  data  between  designs.  Finally,  the  program  must  be  fully 
interactive. 

MULTI  must  fulfill  all  these  requirements  and  be  able  to  operate 
in  the  limited  65,OOOg  words  of  memory  core  that  is  available  of  AFIT's 
INTERCOM.  In  its  original  form  MULTI  retired  in  excess  of  110,000g 
words  of  memory.  Thus  it  was  necessary  to  redesign  MULTI  using  an 
overlay  structure  and  labeled  common  blocks. 

2.1  Overlays 

Overlays  are  used  to  reduce  the  storage  requirements  of  large 
programs  by  dividing  the  program  into  modules.  All  modules  are  separat 


programs  in  their  own  right  and  are  linked  together  by  the  use  of  a 
main  executive  module. 

The  main  executive  module  and  all  common  variables  of  the  pro¬ 
gram  constantly  remain  in  operational  core.  The  main  executive  directs 
the  program  flow  by  calling  the  primary  overlays  into  operational 
core  as  they  are  needed. 

The  data  from  common  variables  is  passed  between  the  main  and 
primary  overlays  by  declaring  the  variables  in  COMMON  statements  in 
the  main  executive  overlay. 

The  CDC  FORTRAN  V  Reference  Manual  and  the  CDC  Loader  Reference 
Manual  for  NOS  and  NOS/HE  can  provide  a  programmer  with  more  detailed 
information  on  overlays  and  COMMON  statements. 

2.2  MJLTI's  Overlay  Structure 

MJLTI  is  composed  of  one  main  overlay  and  13  primary  overlays. 

The  main  overlay  provides  the  executive  directing  function  of  the 
program.  As  an  executive,  the  overlay  initializes  and  stores  data  in 
specified  common  blocks.  When  an  option  number  is  entered  by  the 
user,  the  main  overlay  checks  an  IF/eLSEIF  structure  to  attach  the 
primary  overlay  needed  to  satisfy  the  option  request.  The  main  over¬ 
lay  also  contains  subroutines  which  are  used  by  more  than  one  primary 
overlay. 

A  main  overlay  description  is  given  in  Table  B-I. 

Initially  there  were  three  primary  overlays}  each  was  chosen  to 
conform  to  three  developmental  aspects  of  controller  designs  data  in¬ 
put,  control  law  synthesis  and  simulation.  However,  to  further  reduce 
memory  core  requirements,  the  overlays  and  related  subroutines  are 
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TABLE  B-I 

Description  of  Main  Overlay 


|  MAIN  OVERLAY  | 

Overlay  # 

Program  Name 

Options  Included 

(0,0) 

MULTI 

All 

Overlay  # 

Subroutines 

Purpose 

(0,0) 

MATPR 

Prints  matrices 

QPRINT 

Asks  of  data  is  to  be 

printed 

ANSWER 

Asks  if  data  is  correct 

INVERT 

Inverts  matrices 

TABIE  B-II 

Description  of  Primary  Overlays 


PRIMARY  OVERLAYS 

Overlay  #  Program  Name 

Options  Included 

i.o) 

OPTO 

#0  -  #9 

2,o; 

OPT  10 

#10  -  #13,  #15  -  #17,  #19 

(  3,o' 

0PT14U 

#14  -  Unknown  Plants 

4,°; 

0FT14R 

#14  -  Regular  Plants 

5,0) 

0PT14I 

#14  -  Irregular  Plants 

;  6«o; 

0PT18 

#18 

7,0 

OPT  20 

#20  -  #29 

10,0 

OFTFLT 

#30  -  #39 

j 

11 ,° 

0FT31 

#31  -  #33 

12,0 

OFT  34 

#34  -  #36 

13,0 

ERROR 

All 

:u,o) 

MEMORY 

#99 

:i5,o) 

PRINT 

#100  -  #130 

Overlay  #  Subroutines 

Purpose 

(  7,0) 

CLPASS 

Form  differential  equations 

l_ 

YOUT 

Calculates  output  values 
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now  organized  and  defined  as  shown  in  Table  B-II. 

2.3  MJLTI's  Data  Elements 

labeled  common  blocks  are  used  in  MJITI  to  transfer  data  values 
between  overlays.  These  data  values  are  also  retained  in  memory  and 
determine  the  basic  need  for  memory  core  space.  Each  COMMON  block  is 
selected  so  that  only  the  data  required  by  the  primary  overlay  attached 
to  the  main  overlay  is  transferred  into  the  primary  overlay.  In 
addition,  all  character  variables  must  be  in  separate  blocks  and  not 
in  numerical  COMMON  blocks. 

The  numerical  sequence  of  the  blocks  corresponds  to  the  overlay 
structure  of  the  program.  In  COMMON  block  7t  the  postscripts  "A”  and 
"S"  refer  to  actuator  and  sensor.  Table  B-III  shows  which  COMMON 
blocks  are  used  in  each  overlay. 

Arrays  and  matrix  elements  which  are  defined  in  the  labeled  com¬ 
mon  blocks  are  dimensioned  in  the  same  statements  rather  than  with  an 
additional  set  of  DIMENSION  statements.  Arrays  and  matrices  which  are 
not  common  to  more  than  one  overlay  are  dimensioned  in  the  individual 
overlay. 

Initializations  for  the  common  blocks  are  accomplished  via  DATA 
statements  in  the  executive  overlay.  All  values  are  set  equal  to  zero 
except  as  follows: 

Actuators  and  sensors  are  set  to  be  the  transfer  function... 

(B-3) 

Control  limits  are  set  equal  to... 

Minimum  value  —  -1,0  x  loj? 

Maximum  value  —  1.0  x  10  U 


COMMON  Block 


Overlay 


/ - V 

o 

«> 

o 

'o 

H 

o' 

•k 

<\l 

o 

o 

•h 

-4- 

o 

•k 

ir\ 

o 

•k 

vO 

o' 

•k 

c- 

o' 

o 

o' 

•* 

H 

H 

“o  o 
oT  c<-\ 

t-i 

o 

rH 

o 

UTS 

tH 

B  1 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X  X 

X 

X 

B  2 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

B  3 

X 

X 

X 

X 

X 

B  4 

X 

X 

X 

X 

X 

X 

X 

X 

X 

B  5 

X 

X 

X 

X 

X 

X 

B  6 

X 

X 

X 

X 

X 

B  7A 

X 

X 

X 

X 

X 

B  7S 

X 

X 

X 

X 

X 

B  8 

X 

X 

X 

X 

X 

X 

X 

B  8A 

X 

X 

X 

X 

X 

X 

7 

X 

B  9 

X 

X 

X 

X 

X 

X 

X 

X 

BIO 

X 

X 

X 

X 

X 

Bll 

X 

X 

X 

X 

X 

X 

X 

B12 

X 

X 

X 

B12A 

X 

X 

X 

X 

B12B 

X 

X 

X 

X 

X 

B13 

X 

X 

X 

X 

X 

X 

B13A 

X 

X 

X 

X 

B13B 

X 

X 

X 

B14 

X 

X 

X 

X 

X 

B14A 

X 

X 

X 

X 

X 

B15 

X 

X 

X 

X 

X 

B16 

X 

X 

X 

X 

X 

B17 

X 

X 

X 

X 

X  denoted  that 

COMMON 

block 

is  used 

in  overlay 

Initial  values  for  all  other  arrays  and  matrices  are  entered 
in  the  individual  overlays  by  the  use  of  DO  loops  or  DATA  statements. 

2.4  Program  Labels 

The  program  labels  are  selected  to  reflect  certain  operations  in 
the  program  flow.  Each  label  quickly  identifies  the  code  associated 
with  the  label  and  provides  a  method  for  easy  editing  and  error  check¬ 
ing.  The  MJITI  program  labels  are  defined  as  follows: 

Label  #  Purpose 

OOOO  -  1999  Assigned  sequentially  in  the  program  to  label  gen¬ 
eral  operations. 

2000  -  2999  Assigned  to  correspond  to  individual  option  trans¬ 
fers  (i.e.  OPTION  #1  is  labeled  2001). 

3000  -  3999  Assigned  to  error  statements  in  Overlay  (13 ,0). 

4000  -  4999  Assigned  to  FORMAT  statements. 

8000  -  8999  Assigned  to  error-free  exit  from  overlays. 

9000  -  9999  Assigned  to  CONTINUE  statements  for  erroneous  exit 
from  overlays. 

2.5  Overlay  Structure 

Each  of  MJITI* s  overlays  are  structured  in  the  same  basic  format. 
The  format  has  several  elements  beginning  with  overlay  identification 
and  ending  with  an  END  statement.  Each  overlay,  however,  may  not  con¬ 
tain  all  elements.  The  format  used  in  MJITI' s  structure  is  as  follows: 

A.  Overlay  Beginning,  including... 

Overlay  Identification 
Program  Name 

CHARACTER,  INTEGER,  REAL  Declarations 
COMMON  Blocks 
DIMENSION  Statements 
DATA  Statements 

B.  Option  Flag  Checking 

C.  Option  Routing 

D.  Option/Overlay  Code 

Option  Flag  Initializations 

E.  FORMAT  statements 

F.  Overlay  Ending,  including... 

Error  Flag  Initializations 
END  Statement 
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Comment  cards  are  used  throughout  the  program  to  help  a  pro¬ 
grammer  interpret  the  overlays.  In  general,  four  lines  of  asterisks 
box  an  overlay-heading  comment  card,  two  rows  of  asterisks  lead  all 
subroutines  and  format  blocks,  and  a  single  line  of  asterisks  sep¬ 
arates  the  options  in  each  overlay.  Finally,  comment  cards  with  dashed 
lines  explain  various  operations  or  the  next  lines  of  code,  or  the 
dashed  lines  are  used  to  separate  sections  of  the  program. 

2.6  Overlay  Calls 

The  main  overlay  is  identified  with  a  name  and  numerical  desig¬ 
nator: 

OVERLAY  (MJLTI.O.O) 

The  primary  overlays  are  identified  only  by  numerical  descrip¬ 
tors: 

OVERLAY  (n,0) 

where  "n"  is  an  octal  number. 

Each  overlay  is  called  by  designating  the  main  overlay  name, 

MJLTI,  and  the  numerical  identification  of  the  primary  overlay  with 
"n"  in  decimal.  For  example,  to  attach  Overlay  (11, 0)  the  program 
call  statement  is: 

CALL  OVERLAY  (MJUI,9,0) 

This  aspect  of  overlay  usage  is  critical  and  is  not  defined  well 
in  the  CDC  FORTRAN  V  Reference  Manual. 

2.7  Option  Flags  and  Error  Flags 

MJLTI  uses  a  simple,  but  effective,  method  to  assure  that  options 
-?re  accomplished  in  the  correct  order.  This  is  necessary  since  program 
flow  must  begin  with  data  input  and  proceed  to  simulation.  As  each 


112 


option  is  accomplished,  a  corresponding  option  flag  is  set  before 
program  flow  leaves  the  option. 

To  check  program  flow,  the  operational  code  beginning  each  over¬ 
lay  interrogates  the  option  flags  which  mast  be  set  to  meet  the  re¬ 
quirements  of  the  option  that  is  to  be  accomplished  next.  If  all 
required  options  have  not  been  accomplished,  the  related  error  flag 
is  initialized.  If  an  option  is  accomplished  successfully,  the 
option's  error  flag  is  set  equal  to  zero. 

Before  each  option  request  is  signaled  to  the  user,  MJLTI  checks 
for  error  flags.  If  any  error  flags  are  set,  the  error  overlay  is 
automatically  called  to  print  an  error  message  describing  the  problem 
with  the  program  operation. 

3.  Description  of  MJUI's  Main  Executive  Overlay 

MJITI's  main  executive  overlay  controls  the  calling  of  the  pri¬ 
mary  overlays  and  all  flow  of  data  between  the  overlays.  All  common 
memory  locations  are  defined  and  initialized  in  the  main  executive 
overlay.  Since  the  executive  overlay  is  the  most  important  overlay 
in  the  program,  its  operation  should  be  thoroughly  understood  before 
the  reader  reviews  the  descriptions  of  all  other  overlays. 

The  following  sub-sections  describe  how  MJLTI's  executive,  Overlay 
(0,0),  is  opened  and  calls  primary  overlays. 

3.1  Overlay  Opening 


The  main  executive  is  opened  with  the  overlay  name  and  program 
statement.  Type  declarations  for  the  variables  occur  next,  followed 
by  the  COMMON  block  definitions  and  data  initializations.  The  first 


two  lines  of  operational  code  include  a  beginning  message  containing 
the  current  version  number  of  the  program. 

The  lines  of  code  described  above  are  executed  only  once;  this 
occurs  when  the  program  is  first  begun.  After  MJI1TI  is  opened,  the 
program  flow  remains  in  the  option  request-loop  which  begins  at  state¬ 
ment  #9000. 

3.2  Error  Checking 

All  program-determined  errors  set  an  error  flag  denoting  the  type 
of  error.  When  the  program  variable,  IERR,  is  not  equal  to  zero, 
Overlay  (13, 0)  is  called  to  warn  the  user  of  the  error  condition. 

This  error  checking  is  the  first  operational  line  of  the  option 
request-loop  code. 

3.3  Option  Request-Loop  Code 

The  option  request-loop  begins  with  the  statement: 

PKIOT  '(//A)',  •  OPTION,  PLEASE >  #» 
and  is  used  to  obtain  the  option  number  request  from  the  user  and 
direct  the  program  flow  accordingly.  The  routing  is  accomplished  by 
checking  a  series  of  IF/ELSEIF  statements. 

There  are  two  additional  checks  accomplished  when  OPTION  #14  is 
selected  or  if  any  plotting  options  are  chosen. 

If  OPTION  #14  is  requested,  the  program  asks  the  user  to  select 
the  type  of  design  that  is  to  be  accomplished.  The  single-character 
variable,  METHOD,  is  used  to  further  route  the  program  flow  to  obtain 
the  overlay  needed  for  the  computations. 

When  OPTIONS  #30-39  are  chosen,  Overlay  (10, 0)  is  called  to  form 
a  plotting  matrix  for  terminal  plots  of  CALOOMP  plots.  Upon  completion 
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of  Overlay  (10,0),  the  program  returns  to  the  main  executive  for  more 
option  checks#  If  a  terminal  plot  is  requested,  Overlay  (11 ,0)  is 
called  to  accomplish  the  terminal  plot.  If  OPTIONS  #34  to  36  are 
requested  to  obtain  a  CALCOMP  plot,  Overlay  (12, 0)  is  brought  into 
operational  core  to  produce  the  PIOT  file. 

3.4  Main  Executive  Overlay  Subroutines 

There  are  four  subroutines  attached  to  the  main  overlay.  These 
subroutines  are  used  by  more  than  one  overlay  and  therefore  remain  in 
operational  core  at  all  times. 

SUBROUTINE  MAT PR  (TR.IR.IC)  Subroutine  MAT PR  is  used  for  printing 
all  matrices.  The  subroutine  has  three  parameters  as  described  below: 

TR  -  A  real  matrix  of  maximum  dimension  10x10. 

IR  -  An  integer  value  denoting  the  #  of  rows  of  the  matrix. 

IC  -  An  integer  value  denoting  the  #  of  columns  of  the  matrix. 

SUBROUTINE  QPRINT  (CHAR.*)  This  subroutine  is  used  to  ask  if  data 
should  be  printed.  There  are  two  parameters  used  in  the  subroutine 
call: 

CHAR  -  Character  string  with  maximum  of  30  characters. 

*  -  Line  number  denoting  where  program  flow  should  go  if 

data  is  not  to  be  printed. 

If  the  data  is  to  be  printed,  the  code  directing  the  printing 
should  follow  immediately  after  the  subroutine  call. 

SUBROUTINE  ANSWER  (».*)  ANSWER  is  used  after  the  program  echoes  input 
data  to  the  user  and  asks  if  the  data  is  correct.  If  the  answer  from 
the  user  is  affirmative,  the  program  continues  with  the  statements 
following  the  subroutine  call.  If  the  data  is  not  correct  or  the 
option  is  aborted,  the  subroutine  parameters  direct  the  program  flow 
as  follows: 
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1st  *  -  Line  number  denoting  incorrect  data  directing  return  to 
data  input  point. 

2nd  *  -  Line  number  denoting  option  abort  directing  return  to  end 
of  option. 

For  the  second  asterisk,  the  line  number  should  be  selected  so  as 
to  set  IERR  equal  to  zero  and  so  that  the  option  flag  is  not  set. 
SUBROUTINE  INVERT  (A.AINV.N.IA,*)  This  subroutine  is  used  to  invert 
a  matrix.  The  calling  parameters  are: 

A  -  A  real  matrix  to  be  inverted  of  maximum  dimension  10x10. 

AINV  -  The  resulting  real,  inverted  matrix. 

N  -  The  #  of  rows  in  the  A  matrix. 

IA  -  The  maximum  row  dimension  of  A  matrix  as  described  by 
the  external  program. 

*  -  Line  number  denoting  where  program  flow  should  be  directed 

if  the  A  matrix  cannot  be  inverted. 

The  line  number  parameter  is  selected  to  route  program  control 
to  a  point  where  an  error  flag  is  set  corresponding  to  a  program- 
directed  error  statement.  This  error  statement  indicates  which  matrix 
is  not  invertable. 

Subroutine  INVERT  accomplishes  the  matrix  inversion  by  use  of 
the  IMSL  subroutine,  LINV2F  (Ref  14).  The  error  flag  from  Subroutine 
LINV2F  indicates  if  the  inversion  cannot  be  obtained.  Print  state¬ 
ments  relating  the  problem  are  contained  in  Subroutine  INVERT  so  that 
the  user  does  not  have  to  refer  to  the  IMSL  directives. 

4.  Description  of  MU  UP  s  Primary  Overlays 

Program  WIT  I  contains  13  primary  overlays.  The  program  code  is 
written  in  FORTRAN  V  code  and  is  easy  to  understand.  Comments  are 
included  in  some  portions  of  the  code  to  help  explain  the  function 
of  certain  sections  of  the  program. 

Each  overlay  follows  the  structure  described  in  Section  2.5.  An 


additional  structural  aspect  at  the  beginning  of  Overlays  (1,0),  (2,0), 
(7,0),  (10,0),  and  (15,0)  is  the  routing  code  to  the  individual 
options.  Each  overlay  contains  lines  similar  to  the  following  line 
taken  from  Overlay  (7,0) s 

GO  TO  (2021,2022,2023,2024,2025,2026,2027,2028,2029)  NOPT 
This  line  is  used  to  route  OPTIONS  #20  to  #29  to  the  lines  beginning 
each  option.  NOFT  is  an  integer  variable  which  is  equal  to  the 
option  number  the  user  requests.  Upon  entry  into  Overlay  (7,0),  NOFT's 
value  is  changed  to  NOFT-20.  If  NOPT  then  equals  three,  for  example, 
the  program  flow  is  directed  to  label  2023  which  is  the  third  label 
listed  in  the  GO  TO  statement.  Option  routing  in  the  other  overlays 
is  similar.  If  NOFT's  modified  value  becomes  zero,  program  flow  is 
to  the  statements  directly  following  the  GO  TO  statement.  In  case 
an  error  flag  has  been  set  during  the  overlay's  operation,  NOPT  must 
be  returned  to  its  original  value  before  leaving  an  overlay. 

The  reader  can  review  the  source  listing  for  a  description  of 
each  primary  overlay.  An  overview  of  each  of  the  overlays  follows  in 
this  section.  A  listing  of  prerequisites  for  each  option  is  found 
in  Section  5. 

4.1  Overlay  (1,0)  —  Options  #0  -  #9 

This  overlay  is  used  for  entering  data  values  which  describe  the 
plants.  The  code  for  the  options  in  this  overlay  consists  mainly  of 
READ  and  PRINT  statements. 

OPTION  #3  is  used  to  enter  the  plant  A,  B,  £,  and  D  matrices.  It 
is  noteworthy  that  the  code  is  currently  written  so  that  if  a  matrix 
data  entry  is  made  incorrectly,  the  user  must  re-enter  the  entire 
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matrix  rather  than  change  the  individual  element  value.  For  this 
reason  each  matrix  is  echoed  back  to  the  user  for  checking  by  the  calls 
to  subroutines  MAT  PR  and  ANSWER. 


OPTIONS  #4  and  #5  include  code  to  reset  actuator  and  sensor 
values  to  the  transfer  functions 


65  > 

500 

6 

s  +  500 

- ^ 

so  as  to  eliminate  their  effect  in  the  simulation. 

OPTIONS  #8  and  #9  read  plant  data  from  a  local  file.  The  data 
is  read  by  opening  a  file,  UN,  specified  by  the  user.  LFN  is  a 
variable  that  can  be  up  to  30  characters  in  length.  The  file  is  first 
opened  on  a  program-selected  unit  number,  the  data  is  read,  and  the 
unit  is  then  closed.  It  is  essential  that  the  unit  be  closed  at  the 
end  of  the  option  so  that  multiple  entries  to  the  option  can  occur. 
This  might  be  desired  if  the  user  wishes  to  introduce  new  plant  data 
values  for  a  different  flight  condition. 

OPTIONS  #6  and  #7  are  not  used. 

4.2  Overlay  (2,0)  —  Options  #10  -  #19 

This  overlay  contains  the  code  for  options  #10  through  #19, 
except  that  the  code  for  OPTIONS  #14  and  #18  are  contained  in  sub¬ 
sequent  overlays.  OPTIONS  #15  thru  #17  are  not  used. 

The  code  for  the  options  in  this  overlay  is  mostly  composed  of 
PRINT  and  READ  statements  pertaining  to  design  parameters. 

OPTION  #19  contains  the  FORTRAN  lines  to  read  design  parameters 
from  a  local  file  which  must  be  specified  by  the  user.  The  operation 
of  data  file  opening  and  closing  is  given  in  the  discussion  of  Overlay 
(1,0). 
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4.3  Overlay  (3.0)  —  Option  #14  -  Unknown  Plants 

The  controller  matrices,  KO  and  Kl,  for  unknown  plants  are  cal¬ 
culated  in  Overlay  (3,0).  In  addition  to  the  COMMON  blocks  of  the 
overlay,  there  are  four  additional  scratch  matrices  (CM,  W,  WW,  and 
ZZ)  dimensioned  and  initialized.  The  matrix  values  for  these  matrices 
are  not  retained  after  the  overlay  is  terminated. 

The  unknown  design  can  be  accomplished  by  use  of  the  plant  G(o) 
matrix  or  by  forming  this  matrix  from  the  plant's  A,  B,  _C,  and  D 
matrices.  In  the  latter  case  the  calculations  are: 


Program  Calculation 

Actual  Calculation 

H 

ii 

£ 

W  =  A”1 

(B-5) 

ZZ  =  W  *  B 

ZZ  =  [  A”1  B  ] 

(B-6) 

GO  =  D  -  C  *  ZZ 

G(O)  =  [  £  -  C  A”1  B  ] 

(B-7) 

WW  =  D  -  C  *  ZZ 

GM(0)  =  G(O) 

(B-8) 

At  this  point  either  the 

calculated  _G(0)  matrix  or  the  user- 

originated _G(o)  matrix  is  used  to  create  the  controller  matrices. 

The  calculations  are: 

Program  Calculation 

Actual  Calculation 

WW  =  GO”1 

ww  =  g(o)”1 

(B-9) 

S  =  WW  *  GAMA 

s  =  [  g(o)  T1^ 

(B-10) 

Kl  =  S  *  EPS ION 

K.X  -  €  [  G(0)  P1  L 

(B-ll) 

KO  =  ALPHA  *  S  *  EPS  ION 

Kq  =  a  e  [  G(o) 

(B-12) 

The  single  character  variable,  METHOD,  is  set  at  the  end  of  the 
overlay  to  MU”  if  the  overlay  terminates  normally;  METHOD  is  set  to 
"X”  if  the  overlay  terminates  abnormally. 
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This  overlay  calculates  controller  matrices,  Kg  and  Kl.  for 
regular  plants.  There  are  three  scratch  matrices  (W,  WW,  and  ZZ) 
which  are  dimensioned  and  initialized  at  the  beginning  of  the  overlay. 
The  matrices  are  destroyed  when  the  overlay  is  completed. 

After  prerequisite  checks,  the  controller  matrices  are  formed 
by  the  following  calculations: 


Program  Calculation 

Actual  Calculation 

W  =  C  *  B 

W  =  [  C  B  ] 

(B-13) 

ZZ  =  vr1 

ZZ  =  [  C  B  ]-1 

(B-14) 

WW  =  ZZ  *  GAMA 

WW  =  [  C  B  Y1  £ 

(B-15) 

KO  =  WW  *  ALPHA  *  EPSION 

So  =  «  e  [  c  b  TlY 

(B-16) 

Kl  =  WW  *  EPSION 

h  «  €  [  c  B  r1  £ 

(B-17) 

For  a  normal  termination  to  the  overlay,  the  single  character 
variable,  METHOD,  is  set  equal  to  "R"  denoting  a  regular  plant  design. 
If  abnormal  termination  occurs,  METHOD  is  set  equal  to  "X". 

4*5  Overlay  (5.0)  —  Option  #14  -  Irregular  Plants 

An  irregular  plant  design  of  the  controller  matrices,  KO  and  Kl, 
is  accomplished  in  Overlay  (5>0).  There  are  four  temporary  matrices 
(W,  WW,  ZZ,  and  VWZ)  which  are  dimensioned  and  initialized  for  use 
only  while  this  overlay  is  attached  to  operational  core. 

For  this  type  of  design  the  program  requires  a  measurement  matrix, 
MM,  to  augment  the  rank  deficiencies  of  the  output  matrix.  After  pre¬ 
requisite  checks,  the  next  block  of  program  code  determines  if  the 
measurement  matrix  already  exists,  if  the  user  must  initialize  MM,  or 
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if  the  user  desires  to  re-initialize  the  values  of  the  matrix.  The 
measurement  matrix  values  are  originally  all  set  equal  to  zero  in  the 
main  overlay.  If  the  user  has  not  initialized  the  values  by  selecting 
OPTIONS  #9  or  #18,  the  matrix  values  must  be  entered  through  this 


overlay. 

The  following  calculations  then  occur: 

Program  Calculation  Actual  Calculation 

WW  =  C  +  MM  *  A  F=C+[MA]  (B-18) 

ZZ  =  W2  ?2  =  [c2  +  M  A^]  (B-19) 

WW  =  Z2 T1  WW  =  F"1  (B-20) 

ZZ  =  WW  *  GAMA  ZZ  =  [  F2  (B-21) 

WW  =  B2  WW  =  B2  (B-22) 

VWZ  =  WW"1  VWZ  =  B2-1  (B-23) 

WW  =  VWZ  *  ZZ  WW  =  [  F2  B2  ]_1£  (B-24) 

The  controller  matrices  are  then  calculated  as  follows: 

Program  Calculation  Actual  Calculation 

KO  =  WW  *  ALPHA  *  EPSLON  Kq  .  oi  6  [  F2  B2  J1  £  (B-25) 

K1  =  WW  *  EPSLON  K:  =  C  C  I2  B2  T1  E  (B-26) 


The  overlay  terminates  by  setting  the  single  character  variable, 
METHOD,  equal  to  "I",  denoting  an  irregular  plant  design,  if  the 
overlay  terminates  normally.  It  is  set  equal  to  »'X”  if  the  overlay 
terminates  abnormally. 

VMJUF,  a  high  precision,  IMSL  library  subroutine  (Ref  14) ,  is 
used  in  this  overlay  to  multiply  two  matrices  together.  When  using 
this  subroutine,  the  second  matrix  which  is  entered  into  the  subroutine 
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is  overwritten  during  the  matrix  multiplication  process.  Thus,  the 
contents  of  this  matrix  are  destroyed. 


4.6  Overlay  (6.0)  —  Option  #18 

Overlay  (6,0)  is  provided  for  two  purposes.  One  purpose  is  to 
create  a  measurement  matrix  for  use  in  an  irregular  plant  controller 
design,  and  the  other  purpose  is  to  provide  a  tool  for  row  and  column 
operations  on  any  matrix. 

This  overlay  uses  the  four  scratch  matrices  (W,  WW,  ZZ,  and  VWZ) 
during  its  computations.  These  matrices  are  discarded  when  the  option 
ends. 

The  integer  variable,  ISKIP,  is  set  equal  to  1,  2,  or  3  depending 
on  the  user's  choice  of  measurement  matrix  creation,  row  and  column 
operations  on  [  _C  *  B  ],  or  row  and  column  operations  on  any  matrix 
of  interest.  The  routing  for  the  different  choices  is  determined 
by  an  IF/RI.SEIF  block  of  code. 

Before  creating  a  measurement  matrix,  the  user  must  obtain  the 
feedback  gain  matrix,  Kl,  from  CESA  OPTION  #38  (Ref  19:124).  This  K1 
matrix  should  not  be  confused  with  the  Kl  matrix  associated  with  the 
control  law  equations.  After  this  matrix  is  read  into  the  program  as 
matrix  VWZ,  and  is  verified  by  the  user,  the  measurement  matrix  is 
calculated  by  the  following  equations: 


Program  Calculations 

Actual  Calculations 

MM  =  C]_ 

MM  =  C± 

(B-27) 

ww  -  c2 

ii 

lo 

ro 

(B-28) 

ZZ  =  MM  -  WW  *  VWZ 

zz  =  [  £i  -  c2  Ki  ] 

(B-29) 

Program  Calculations  (cont.)  Actual  Calculations  (coat.) 


MM 

"  *11 

MM 

WW 

“*12 

WW 

W 

-  WW  * 

VWZ  -  MM 

W 

WW 

=  VTT1 

WW 

MM 

*  zz  * 

WW 

MM 

-  4l 

(B-30) 

"  42 

(E-31) 

-  [  *12  a  -  Au  3 

(B-32) 

•  [  £12  Ei  ■  ill  3T 

(B-33) 

=  C  Cl  -  C2  K1  ] 

CAuS-Au  3”1 

(B-34) 

The  program  code  for  performing  row  and  column  operations  on 
[  C  B  ]  and  performing  row  and  column  operations  on  any  other  matrix 
is  identical.  The  only  difference  between  the  two  choices  is  the  matrix 
that  is  used  in  the  operations.  In  the  first  case,  the  [  _C  B  ]  matrix 
is  automatically  formed  by  the  program  without  any  input  from  the  user. 
In  the  second  case,  the  user  must  supply  a  matrix  of  maximum  dimension 


10x10. 


The  program  provides  for  four  choices  of  operations  on  a  matrix. 

The  user's  choice  of  operations,  which  is  identified  by  the  integer 
variable,  ISKIP,  directs  program  flow  through  an  IF/ELSEIF  block. 

When  a  new  matrix  is  formed,  it  is  echoed  back  to  the  user.  The  program 
then  returns  to  the  operation-selection  point. 

4.7  Overlay  (7.0)  —  Options  #20  -  #29 

All  aspects  of  the  controller  simulation  are  contained  in  this 
overlay.  The  overlay  also  contains  two  subroutines,  CLPASS  and  YCUT, 
which  are  used  in  OPTION  #26.  Since  subroutine  CIPASS  is  used  as  a 
parameter  in  a  CALL  statement,  it  must  be  declared  as  an  EXTERNAL  in 
the  beginning  of  the  overlay.  There  are  two  scratch  matrices  (CM  and 


F)  and  eight  scratch  arrays  (IWORK,  WORK,  X,  Z,  Y,  E,  AX,  and  MMAX) 
that  are  dimensioned,  initialized,  used  and  discared  as  the  overlay 
operates.  The  F  matrix  of  this  option  should  not  be  coi^fused  with  the 
F  matrix  generated  by  OPTION  #14  for  irregular  plants.  There  is  also 
a  CHARACTER  variable  called  STRING  which  is  declared  at  the  beginning 
of  the  overlay.  Overlay  (7,0)  contains  one  reserved  option,  OPTION  #28. 

Before  the  variable,  NOPT,  routes  the  program  flow  to  the  differ¬ 
ent  options  of  the  overlay,  the  CM  and  F  matrix  values  must  be  set. 
Although  these  matrices  are  only  superficial,  it  is  necessary  that  they 
be  equated  to  these  values: 

CM  (I,J)  =  C  (I,J)  (B— 35) 

F  (l,J)  =  Identity  Matrix  (B-36) 

These  two  matrices  are  found  in  the  original  program  code  obtained  from 

the  University  of  Salford  and  are  used  in  OPTION  #26. 

OPTION  #20  to  #25  and  OPTION  #27  are  mainly  FORTRAN  READ  and  PRINT 
statements  which  are  used  in  obtaining  state  and  integrator  initial 
values,  the  output  command  vector,  simulation  time  parameters  and  the 
control  input  limitations.  OPTION  #27  also  contains  the  code  to  remove 
control  limits  by  resetting  the  control  minimum  value  to  -1.0  x  10*^ 
and  the  control  m?  imum  value  to  1.0  x  10^. 

OPTION  #29  opens  unit  number  40  to  read  the  design  parameters  from 
a  user-specified  local  file.  The  operation  of  this  option  is  the  same 
as  the  operation  of  OPTION  #9  which  is  discussed  in  Section  4.1. 

The  heart  of  the  simulation  is  -ontained  in  the  OPTION  #26  code. 

As  previously  stated,  this  code  is  nearly  identical  to  the  code  received 
from  the  University  of  Salford.  The  option  begins  by  checking  for 
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option  flags  which  may  not  be  set  and  by  checking  for  the  presence  of 
actuators,  sensors,  and  control  limits.  Next,  the  total  number  of 
states  is  determined  by  adding  the  number  of  states  from  the  sensors, 
actuators  and  plant  matrices. 

There  are  three  major  loops  in  this  option.  The  outer  loop  for 
each  sampling  time  is  blocked  by  label  #1285;  the  middle  loop  based  on 
sampling  period  is  blocked  by  label  #L250;  the  inner  loop  based  on 
step  time  is  blocked  by  label  #1240. 

Outer  loop.  The  outer  loop  occurs  since  the  program  allows  the 
simulation  to  be  run  with  more  than  one  sampling  time.  Each  time  a 
different  sampling  time  is  run,  the  program  must  initialize  several 
variable  and  array  values.  A  calculation  of  the  number  of  incremental 
points  is  also  made,  based  upon  the  total  simulation  time,  TT,  the 
sampling  time,  SAMT,  and  the  step  time,  ST.  The  following  formulas 
determine  the  number  of  total  time  increments,  NT: 

NIN  =  Integer  Value  of  (  TT  /  SAMP  +  0.5  )  (B-37) 

NTT  =  Integer  Value  of  (  SAMT  /  ST  +0.5  )  (B-38) 

NT  .  NIN  *  NTT  (B-39) 

If  the  step  time  is  chosen  to  be  greater  than  the  sampling  time,  NTT  is 
set  to  a  value  of  one  prior  to  the  calculation  of  total  number  of  time 
increments  in  Eq.  (B-39) .  The  diagram  in  Fig.  B-l  shows  the  relation¬ 
ship  between  TT,  SAMT  and  ST. 

If  the  total  number  of  time  increments  is  greater  than  100,  the 
simulation  exceeds  the  dimension  of  the  matrices  which  hold  the  input 
and  output  values.  Thus,  an  integer  variable,  IPACK,  is  calculated  to 
determine  the  rate  at  which  data  is  packed  into  a  matrix  with  100  rows. 
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Fig.  B-l  Relationship  Between  Total  Time,  Sampling  Time  and  Step  Time 


Time  Input  Input 


NT=Total  Number  of  Time  Increments 


Fig.  B-2  Representation  of  the  3-D  Input  Matrix,  UP 
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If  there  are  125,  or  less,  time  increments,  the  data  from  the  first  100 
increments  is  retained.  If  there  are  more  than  125  time  increments, 


IPACX  is  calculated  as: 


IPACK  =  [  Integer  Value  of  (  NT/lOO  )  ]  +  1 


(B-40) 


As  an  example  of  the  packing  process,  if  IPACK  is  calculated  as  three, 
every  third  input  and  output  value  is  retained. 

The  last  part  of  the  code  for  the  outer  loop  sets  the  integer 
variable,  ISKIP,  which  is  used  to  suppress  the  time-sequential  print¬ 
out  of  input  and  output  values  as  the  solutions  to  the  state  differ¬ 
ential  equations  are  found. 

Middle  Loop.  The  middle  loop  is  passed  through  NIN  times  as 
calculated  in  Eq.  (B-37).  First,  the  output  measurement  vector,  YM, 
is  formed.  In  MJLTI  this  vector  is  equivalent  to  the  output  vector,  Y, 


and  is  calculated  from: 


Y  =  CM  *  X 


(B-41) 


The  error  vectors  are  then  formed  as  follows: 


for  irregular  plants... 
Program  Calculations 
AX  =  A^  *  X 
MMAX  =  MM1  *  AX 
S  =  F  *  Q 
E  =  V  -  S  -  MMAX 


Actual  Calculations 
AX  =  [  Ax  ]  x  (kT) 

MMAX  =  [  M  *  ]  x  (kT) 

s  -5 


(B-42) 

(B-43) 

(&-44) 


E^V-S-CM*^  ]  x  (kT)  (B-45) 


for  unknown  plants  and  regular  plants... 


Program  Calculations 


S  =  F  *  Q 


Actual  Calculations 


S  *  2 


E  -  V  -  S 


E  =  V  -  Q 


(B-46) 

(B-47) 


(B-4 8) 


For  unknown  plants  the  controller  is  then  formed  from: 

U-[K0*E  +  K1*Z]/  SAMT 
and  for  all  other  plants  the  controller  is  formed  from: 

U»[K0*E  =  K1*Z]  SAMT  (B-49) 

However,  before  these  inputs  are  used  in  the  simulation  they  are 
compared  to  the  current  input  control  limitations  and  modified,  if 
necessary. 

A  call  to  subroutine  YCUT  is  the  final  line  of  code  in  the  middle 
loop.  This  subroutine  call  determines  the  controlled  output  vector 
from  the  states  of  the  system  at  any  specified  time  and  is  described 
at  the  end  of  this  section. 

Inner  Loop.  The  inner  loop  is  passed  through  NTT  times  as  cal¬ 
culated  by  Eq.  (B-38).  The  first  section  of  the  loop  is  concerned  with 
the  data  packing  procedure  described  earlier  and  sequentially  sets  the 
row  indices  for  the  input  and  output  matrices,  UP  and  YP.  These  two 
matrices  are  retained  throughout  MULTI  and  contain  the  input  and  output 
data  as  calculated  by  OPTION  #26.  The  matrices  are  3-dimensional  where 
the  row  dimension  is  equivalent  to  an  input  or  output  vector  at  each 
time  increment,  the  first  column  holds  the  time  increment  values,  T, 
while  the  other  columns  hold  the  sequential  data  for  each  input  or 
output,  and  the  third  dimension  is  equivalent  to  the  sampling  time. 

See  the  diagram  presented  in  Fig.  B-2. 

MULTI  uses  subroutine  OEE  (Ref  21)  from  the  ASD  CC6600  Library 
to  solve  the  set  of  differential  equations  formed  by  subroutine  CLPASS. 
The  CLPASS  subroutine  is  discussed  at  the  end  of  this  section.  Currently 
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the  precision  limiww  s  computations  are  set  at  1.0  x  10~^.  If 

an  error  occurs  during  the  solution  process,  an  error  message  is 
printed  to  alert  the  user  of  the  condition.  The  program  provides  the 
error  flag  number  to  the  user  and  states  that  the  OEE  manual  is  to  be 
referenced. 

The  inner  loop  is  ended  by  a  call  to  subroutine  YOUT  to  form  a 
new  output  vector,  Y,  from  the  values  returned  from  the  OEE  subroutine. 
When  the  inner  loop  is  complete,  a  new  integrator  vector  is  calculated 
and  program  flow  returns  to  the  middle  loop. 

When  all  time  increments  for  the  total  simulation  time  have  been 
processed  through  the  inner  and  middle  loops,  the  program  code 'for 
printing  control  limit  information  is  entered.  A  simulation  complete 
message  is  then  provided  and  +  he  outer  loop  is  run  again  until  each 
sampling  time  is  simulated. 

Before  the  option  is  completed  the  integer  variable,  NT,  is  set 
equal  to  the  actual  number  of  data  points  in  the  input  and  output 
matrices  of  the  last  simulation.  This  is  necessary  so  that  the  plot¬ 
ting  routines  receive  the  correct  number  of  data  values  in  the  matrices. 
However,  since  NT  does  not  have  a  value  for  each  sampling  time  and  an 
input/output  matrix  can  be  formed  where  the  first  sampling  time  dim¬ 
ension  has  less  data  values  than  the  second  sampling  time  dimension, 
a  termination  error  can  result  unless  MJ1TI  operates  under  one  of  the 
following  procedures: 

(a)  MJITI  should  be  run  with  all  sampling  times  entered  in  order 
of  increasing  value,  and  step  time  should  be  set  so  as  to  be 
equal,  or  less  then,  the  smallest  sampling  time,  or 

(b)  MJITI  should  be  run  using  only  one  sampling  time. 
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SUBROUTINE  CLPASS  (T.X.XDOTl 

This  subroutine  is  nearly  identical  to  the  CLPASS  subroutine 
attached  to  the  PAK200  program.  Minor  modifications  are  made  in  some 
parts  of  the  code  so  that  it  may  be  used  as  an  external  program  in 
subroutine  OEE. 

This  subroutine  forms  the  differential  equations  from  the  plant, 

actuator,  sensor,  and  error  integral  matrices.  The  parameters  ares 

T  -  Time 
X  -  State  vector 

XDOT  -  Derivative  of  state  vector,  X 

CLPASS  defines  the  values  of  the  array,  XDOT,  at  time,  T.  Array 
X  includes  all  the  states  of  the  composite  system.  The  plant  states 
are  first,  followed  by  the  actuator  states,  and  then  by  the  sensor 
states. 

The  system  input,  U,  is  applied  to  the  actuators.  The  output 
of  the  actuators,  W,  provides  the  input  to  the  plant .  Finally,  the 
plant  output,  YM,  is  the  input  to  the  sensors,  and  the  sensor  output, 
Q,  is  the  actual  system  output.  Fig.  B-3  helps  the  reader  visualize 
this  arrangement. 

SUBROUTINE  YOUT  (X.Y.W.C.D) 

Subroutine  YCXJT  is  a  modified  version  of  the  YCXJT  subroutine 
provided  with  PAK200.  MJLTI' s  YCKJT  subroutine  uses  a  COMMON  block  to 
pass  data  into  the  subroutine  rather  than  passing  the  data  through  the 
calling  parameters. 

This  subroutine  determines  the  controller  output  vector  from  the 
states  of  the  system  at  any  time.  The  parameters  in  the  subroutine 
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(c) 


Fig.  B-3  Block  Diagrams  for  the 
(a)  actuators,  (b)  plant  and  (c)  sensors 
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call  are  defined  as: 


X  -  System  state  vector 
Y  -  Controlled  output  vector 
W  -  Actuator  output  vector 
C  -  System  output  matrix 
D  -  System  direct  output  matrix 

4.6  Overlay  (10, 0)  —  Options  #30  -  #39 

When  any  type  of  plot  is  to  be  generated,  MJITI  uses  Overlay  (10,0) 
to  generate  a  plotting  matrix,  F1MAI,  which  is  filled  with  data  values 
from  the  input  and/or  output  value  matrices,  UP  and  YP.  After  the 
PIMAT  is  formed  the  actual  terminal  plot  is  generated  by  Overlay  (11, 0) 
while  the  actual  CALCOMP  plot  is  generated  by  Overlay  (12,0).  These 
two  overlays  are  discussed  in  the  next  two  sections. 

It  is  pointed  out  to  the  reader  that  COMMON  blocks  B13  and  B13A 
change  the  character  representations  of  the  integer  variable,  NT,  and 
the  matrices,  YP  and  UP.  In  this  overlay  and  Overlays  (11,0)  and 
(12, 0),  these  variable  names  are  referred  to  as  N,  Y,  and  P,  respect¬ 
ively. 

The  FORTRAN  coding  in  this  overlay  is  very  condensed  and  the 
program  flow  is  very  complex.  The  coding  is  condensed  so  that  the 
overlay  can  operate  successfully  while  using  minimum  core  space;  the 
core  space  requirement  is  critical  since  this  overlay  uses  the  three 
largest  matrices  of  the  program  (YP,  UP,  and  PLMAT) .  The  program 
flow  is  complex  since  MJITI  provides  (l)  terminal  plots  and  CALCOMP 
plots,  (2)  four  types  of  each  kind  of  plot,  and  (3)  a  long  version  and 
two  shortened  versions  of  the  plot  request.  All  of  these  provisions 
are  completed  in  this  single  overlay.  In  addition,  if  PlittT  is 
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generated  for  several  different  flight  conditions,  the  program  flow 
loops  between  this  overlay  and  the  other  options  of  the  program  until 
FIMAT  is  completed.  In  this  case,  the  overlay  is  required  to  keep  a 
count  of  the  number  of  times  that  the  plot  sequence  has  been  entered. 
Figure  B-4  shows  the  program  routing  at  the  beginning  of  the  overlay. 
In  the  figure,  the  single  digit  numbers,  beside  the  lines  connecting 
the  blocks,  correspond  to  the  value  of  NOFT.  The  four  digit  numbers 
above  the  blocks  correspond  to  actual  program  label  numbers. 

To  correctly  complete  a  plotting  matrix,  P1MAT,  this  overlay 
extracts  columns  of  data  from  the  U  and  Y  matrices.  The  columns  are 
transferred  to  PD4AT  in  a  predesignated  order  after  the  user  inters 
the  values  for  the  variables  I CODE,  NPAIRS,  IF1TCN,  LINES,  N DEPTH, 
IEEPTH,  CHOICE,  NUM,  IGOLMN,  and  ICIM.  The  program  flow  used  to  set 
these  variables  is  shown  in  Fig.  B-5.  The  values  for  these  var¬ 
iables  may  be  set  by  the  program,  rather  than  by  the  user,  depending 
on  the  type  of  plot  requested.  The  definitions  for  these  variables 
are  found  in  the  last  section  of  this  manual.  Figure  B-6  shows  the 
composition  of  the  different  FLMAT  matrices  which  are  formed  for  the 
four  types  of  plots. 

After  the  FLMAT  matrix  is  complete,  the  integer  variables,  NUM 
and  ICIM,  are  reset  to  the  values  required  for  correct  operation  in 
Overlay  (11 ,0)  and  (12, 0).  This  ends  the  overlay. 

4.9  Overlay  (11 ,0)  —  Terminal  Plot 

MU  IT  I  has  the  capability  to  produce  terminal  plots  by  calling 
upon  subroutine  PLOT  IT.  PLOT  IT  is  a  subroutine  designed  by  Major 
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Fig.  B-4  Initial  Program  Routing  for  Overlay  (10,0) 
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I CODE-1 


IOOEE-3 


I CODE-4 
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.ICIM  J-J+ICIM . ICIM+ICIM 


PIMAT(lfJ)=  I  PIMAT  ( I ,  J+ICIM)  = 

n.u(i,icoim(j)+i,iiepth(i))  I  Y(l, ICQIMN(j)+l,IDSPTH(l)) . 


PIMAT  (I,  J)  =or(l,  ICOIJMN(  J)+l ,  nEPTH(l)  ) 
Y 


J=1 . • . IENTRY 


■ 

u 

PIMAT  (I,  IENTRY)=or(ltICOIMN(J)+l  ,H3EFTH(1) ) 

J 

1 

(c) 

1 

K=l., 

1 

PIMAT (I, J) -or (I, IOOIMN (1 )+l , IEEPTH(K) ) 
Y 


I 


Fig.  B-6  Composition  of  PIMAT  Matrix  for  (a)  IC0EE=1, 
(b)  IC0EE=2,  (c)  ICODE=3,  (d)  ICOIE=4 
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Michael  R.  Stamm  of  the  Department  of  Physics  at  the  Air  Force  Institute 
of  Technology,  Wright-Patterson  AFB,  Ohio  (Ref  23). 

This  overlay  begins  with  the  addition  of  a  new  COMMON  block  called 
SCAUT  which  is  common  only  to  the  PLOT  IT  subroutine.  The  COMMON 
block  provides  for  the  initialization  of  the  terminal  plot's  calling 
parameters.  As  discussed  in  Section  4.8,  this  overlay  also  renames 
the  variables,  NT,  UP,  and  YP  as  N,  U,  and  Y,  respectively. 

Overlay  (11,0)  must  also  provide  the  PLOT IT  subroutine  with  the 
independent  and  dependent  data  arrays,  XAXIS  and  YAXIS,  plus  the  min¬ 
imum  and  maximum  values  of  these  arrays.  The  XAXIS  array  is  always 
filled  with  values  from  the  first  column  of  the  output  matrix,  Y.  The 
YAXIS  is  sequentially  set  equivalent  to  the  columns  of  the  FIMAT  matrix 
as  the  PLOT  IT  subroutine  is  called.  PLOT  IT  is  called  until  all  the 
data  in  the  PIMAT  is  scanned  and  entered  into  the  terminal  plot  routine. 
The  terminal  plot  is  then  generated. 

The  overlay  is  ended  with  a  series  of  PRINT  statements  which 
relate  the  symbols  on  the  terminal  plot  curves  to  the  input/output  num¬ 
bers  of  the  plant  states. 

4.10  Overlay  (12.0)  —  CALCOMP  Plot 

This  section  describes  the  code  in  Overlay  (12,0)  which  uses  the 
data  in  the  PIMAT  matrix  and  produces  a  CALCOMP  plot.  The  description 
of  the  subroutine  calls  in  the  ASD  CALCOMP  Plotter  Guide  (Ref  22)  is 
minimal,  at  best.  This  fact,  combined  with  the  fact  that  the  AFIT 
computer  terminal  produces  CALCOMP  plots  at  a  glacial  pace,  makes 
CALCOMP  plotting  code  difficult  to  write  and  test.  Since  help  with 
this  type  of  code  is  limited,  for  AFIT  students,  the  discussion  of  the 
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CALCOMP  subroutines  included  in  this  section  has  the  purpose  of  aug¬ 
menting  the  information  in  the  CALCOMP  plotting  guide. 

The  plot,  which  is  produced  by  the  code  of  this  overlay,  has  an 
X-axis  length  of  eight  inches  and  a  Y-axis  length  of  five  inches.  Each 
axis  is  labeled  with  a  title  and  scaling  values.  The  independent  axis 
is  automatically  titled:  TIME,  SECONDS.  All  curves  are  computer 
approximations  of  a  smooth  line  between  the  discrete  data  points. 

A  number  is  placed  at  the  end  of  each  curve  to  identify  the  curve 
as  representing  a  specific  input/output.  Each  plot  is  finished  with 
a  rectangular  box  with  outside  dimensions  of  6x9  inches.  The  plot’s 
title  is  drawn  outside  the  box  and  below  the  lower  nine  inch  side. 

The  overlay  renames  the  variables,  N,  UP,  and  YP,  to  N,  U,  and  Y, 
respectively,  as  discussed  in  Section  4.8.  In  addition  to  the  var¬ 
iables,  arrays,  and  matrices  included  in  the  COMMON  blocks,  Overlay 
(12, 0)  creates  four  arrays  called  XAXIS,  YAXIS,  ABSC,  and  OHD,  and 
the  CHARACTER  variable,  XT  IT  IE.  The  four  arrays  are  initialized  to 
zero  values  while  the  CHARACTER  variable  is  initialized  to  produce 
the  Xr-axis  title. 

The  first  executable  line  of  the  overlay  records  the  number  of 
CALCOMP  plots  that  are  generated  by  incrementing  the  integer,  IPLOT. 
When  the  file,  PLOT,  contains  the  data  for  five  plots,  the  program 
prompts  the  user  to  terminate  MJLTI  and  route  the  PLOT  file  to  the 
printer. 

The  array  of  independent  axis  data  points,  XAXIS,  is  formed  by 
copying  the  first  column  of  data  from  the  output  data  matrix,  Y.  The 
same  XAXIS  data  array  is  used  when  plotting  all  curves.  The  program 


next  finds  the  minimum  and  maximum  values  that  are  contained  in  the 
PDiAT  matrix  and  forms  an  artificial  YAIIS  data  array  containing  these 
values.  This  dummy  YAXIS  array  is  used  only  to  scale  the  dependant 
axis  and  is  overwritten  when  the  actual  plots  are  formed. 

The  next  portion  of  the  code  deals  with  obtaining  the  titles  for 
the  Y-axis  and  the  plot.  The  former  is  contained  in  the  30-letter 
CHARACTER  variable,  TOTE,  and  the  latter  is  contained  in  the  60- 
letter  CHARACTER  variable,  LFN.  The  titles  should  be  centered  be¬ 
tween  the  ">"  prompts,  if  the  titles  are  to  be  centered  on  the 
CALOOMP  plot.  The  program  calls  subroutine  ANSWER  to  verify  each 
title. 

At  this  point  the  CALCOMP  plotting  calls  begin.  The  two  ASD 
Libraries,  CCPL0T56X  and  CCALIX,  hold  all  the  plotting  subroutines 
needed  for  MULTI 's  CALCOMP  plotting  capability.  The  plotting  calls 
begin  with  the  mandatory  call  to  PLOTS  which  allows  access  to  all 
other  plotting  subroutines.  Subroutine  FACTOR  is  then  used  to  set 
the  size  of  the  plot.  For  a  unity  scaling  factor,  the  independent 
axis  values  are  scaled  across  an  eight  inch  axis  and  the  dependent 
axis  values  are  scaled  across  a  five  inch  axis  by  the  subroutine  iiCALE. 
The  adjusted  minimum  and  adjusted  delta,  computed  by  this  subroutine, 
is  placed  in  the  (N+l)  and  (N+2)  rows,  respectively,  of  all  PLMAT 
matrix  columns.  This  is  accomplished  so  that  the  columns  of  data 
can  all  be  placed  on  the  same  graph.  These  adjusted  values  are  also 
entered  into  the  last  two  rows  of  the  ABSC  and  ORD  arrays. 

The  plot's  origin  is  then  established  at  a  point  which  is  two 
inches  above  and  two  inches  right  of  the  CALOOMP  reference  position. 
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Actual  drawing  begins  with  two  calls  to  subroutine  AXIS;  this  draws 
and  labels  the  X  and  Y  axes. 

If  a  plot  is  produced  with  negative  Y-axis  values,  subroutine 
LINE  is  called  to  draw  a  line  dividing  the  positive  and  negative 
portions  of  the  plot.  The  line  extends  horizontally  from  the  coordi¬ 
nate  origin,  (0,0).  Since  the  coordinate  origin  may  not  be  included 
as  a  data  point  in  PDttT,  the  ABSC  and  OED  arrays  are  generated.  The 
ABSC  and  ORD  arrays  contain  two  data  points  each.  Together  they  form 
the  coordinates  (0,0)  and  (0,XAXU(N)) .  The  third  and  fourth  element 
of  each  array  holds,  respectively,  the  plot's  adjusted  minimum  and 
adjusted  delta.  Subroutine  LINE  is  used  to  draw  a  straight  line 
between  the  two  points,  thus  creating  an  unlabeled  X-axis. 

The  plotting  loop  begins  at  statement  #1720.  To  plot  each  curve, 
the  YAXIS  array  is  sequentially  set  equal  to  each  column  of  the  PD4AT 
matrix.  The  coordinates,  where  the  symbol  at  the  end  of  each  curve 
is  placed,  are  calculated  and  defined  as  (XSYM,YSYM).  This  occurs 
each  time  the  YAXIS  array  is  defined.  Subroutine  FLINE  is  used  to 
plot  each  curve.  This  subroutine  connects  all  data  points  with  a 
smooth  line  and  places  the  appropriate  symbol  at  the  end  of  each 
curve  by  referencing  the  STRING  variable  called  STRING. 

When  the  plotting  loop  ends,  the  plot  is  boxed  by  calling  sub¬ 
routine  RECT.  The  plot  title  is  drawn  by  a  call  to  SYMBOL.  The 
plotting  calls  are  then  terminated  by  the  mandatory  call  to  FLOTE. 

The  overlay  ends  with  two  groups  of  code.  The  first  group  con¬ 
tains  printing  statements,  and  the  second  group  reinitializes  the 
variables,  3ERR,  IENTRY,  and  I CODE,  to  zero. 
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The  final  part  o.-.  n  m  section  discusses  aspects  about  several 
ASD  Library  plotting  subrou";-^s,  which  are  not  stressed  in  Reference 
22. 

Subroutine  PLOTS  (A.B.M)  The  parameter  names,  used  when  calling  this 
subroutine,  must  reflect  the  correct  type  (i.e.  REAL,  INTEGER)  of  var¬ 
iable.  Although  the  •arameters  are  ignored  and  the  variables  can  have 
any  name,  tne  names  must  not  be  used  in  other  portions  of  the  program. 
Subroutine  FACTOR  (FACTR)  If  the  parameter,  FACTR,  is  set  to  a  unity 
value,  plots  sent  to  AFIT  (terminal  #91)  have  an  outer  box  of  size 
6x9.  Plots  sent  to  AFWAL  (terminal  #90 )  are  automatically  reduced 
by  a  factor  of  0.5;  thus,  to  produce  a  plot  of  program-designed  size, 
FACTR  must  be  set  to  a  value  of  two.  The  automatic  features  of  other 
base  terminals  are  unknown  to  the  author. 

Subroutine  PICT  (X,Y,IC)  At  least  one  call  to  this  subroutine  must 
be  made  to  define  a  plotting  origin.  If  a  call  to  PLOT  is  not  made, 
the  X  and  Y  coordinate  origin  can  be  considered  as  the  CALCOMP  pen's 
resting  position.  Therefore,  the  plotting  origin  must  be  established 
so  that  the  plot  is  assured  of  being  drawn  on  the  paper. 

Subroutine  AXIS  (X.Y.BCP.NC.SIZE, THETA, AMIN. DA)  In  the  description  of 
this  subroutine,  the  text  states  that  the  axis  title  is  placed  counter¬ 
clockwise  or  clockwise  in  relation  to  the  axis.  The  user  should  con¬ 
sider  this  definition  to  mean  above  or  below  the  axis. 

Subroutine  SYMBOL  (X.Y, HjHT.IBCD. THETA. N)  The  X  and  Y  parameters  in 
this  subroutine  are  defined  in  terms  of  inches  from  the  plotting 
origin  as  defined  by  the  call  to  subroutine  PICT,  not  from  the  coordi¬ 
nate  origin  of  the  plot.  To  obtain  coordinate  values  in  inches  to 
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use  in  this  subroutine,  the  user  must  reference  the  discussion  of 

subroutine  OFFSET.  As  an  example,  the  X-coordinate,  XSYM,  for  the 

symbol  at  the  end  of  each  curve  is  calculated  as: 

XSYM  -  ^S(NI-  adjugtej  minimum  , 

adjusted  delta  v 

The  adjusted  minimum  and  adjusted  delta  are  calculated  in  the  call  to 

subroutine  SCA1E  and  the  program  places  these  values  in  the  (NM.)  and 

(N+2)  rows  of  the  PIMAT  matrix.  The  YSYM  coordinate  is  calculated 

in  the  same  manner. 

To  obtain  an  upright,  or  vertical,  symbol,  the  value  for  the 
THETA  parameter  is  set  equal  to  zero. 

Subroutine  FLINE  (X.Y.N.K, J.L)  The  J  parameter  in  this  subroutine  is 
correctly  defined  as: 

J<  0  Draw  a  symbol  at  every  Jth  point. 

J  >  0  Connect  all  points  with  a  straight  line  or  a  smooth  curve 
and  draw  a  symbol  at  every  Jth  point. 

A. 11  Overlay  (13. 0)  —  Error  Statements 

This  overlay  is  used  to  print  error  messages  for  all  operational 
failures  detected  by  the  program.  The  operational  code  of  the  over¬ 
lay  consists  entirely  of  PRINT  statements. 

The  first  30  error  statements  refer  to  option  errors.  The  num¬ 
ber  of  the  error  statement  relates  directly  to  the  number  of  an  error 
flag  which,  in  turn,  corresponds  directly  to  an  option  number.  Error 
statements  #31  thru  #39  provide  information  about  matrix  errors. 

Error  statements  #40  thru  #44  give  miscellaneous  error  information. 
When  an  option  does  not  exist,  a  PRINT  statement  is  still  included 
to  provide  an  operational  check  of  MULTI,  If  the  user  receives  one 
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of  these  error  statements,  there  is  a  program  flow  problem  which 
should  be  checked  by  a  progranmer. 

As  a  working  example,  consider  a  prerequisite  check  at  the  be¬ 
ginning  of  an  option.  OPTION  #3  requires  the  option  flag  from 
OPTION  #2  to  be  set  before  the  plant  matrices  can  be  entered,  If 
IFLAG(2)  is  not  set  prior  to  selecting  OPTION  #3,  IERR  is  set  equal 
to  two  and  Overlay  (13 ,0)  is  called.  A  value  of  two  for  IERR  routes 
the  program  flow  to  statement  #3002  which  prints: 

#  OF  STATES,  INPUTS  &  OUTPUTS  MISSING. .. SEE  OPTION  #2 

4.12  Overlay  (14.0)  —  Option  #99  -  Memory  Files 

When  the  user  selects  OPTION  #99  to  end  program  MJ1TI,  Overlay 
(14,0)  is  called  to  create  the  data  memory  files.  There  are  three 
memory  files  created. 

MEMO  is  created  to  hold  plant  data  as  directed  by  the  integer 
variable,  IPLANT.  If  IFLANT  equals  ”1",  all  state,  sensor  and  act¬ 
uator  matrices  are  saved}  if  IPLANT  equals  "2",  the  plant  G(o)  matrix 
is  copied  to  the  file.  If  IPLANT  equals  "O'1 ,  plant  data  from  OPTIONS 
#2  to  #5  are  still  transferred  to  the  memory  file,  and,  when  the  file 
is  read  back  into  MJLTI,  the  IPTANT  value  alerts  the  user  that  the 
file's  data  may  be  incomplete. 

MEMLO  is  used  to  save  all  design  data,  and  MEM20  is  opened  to 
contain  the  simulation  data. 

The  overlay  ends  with  several  PTUNT  statements  relating  the 
file  names  that  have  been  created  and  the  data  that  each  contains. 

4.13  Overlay  (15.0^  —  Options  #100  -  #139 

MJITI’3  last  overlay  provides  data  value  printing  for  most  of 
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the  options.  If  an  option  is  .iot  concerned  with  data  input  or  data 
creation,  the  program  uses  error  flag  #43  to  print: 

THERE  ARE  NO  VAHJES  IN  MEMORY  CORE  FOR  OPTION  # 


If  data  is  available,  the  values  are  printed  by  routing  the  pro¬ 
gram  flow  to  the  proper  section  of  the  overlay.  All  printing  options 
are  numbered  by  adding  the  value  of  100  to  the  related  option  number 
of  the  main  program.  For  example,  data  values  entered  or  created 
by  OPTION  #12  are  printed  by  OPTION  #112. 

The  data  values  from  some  options  are  combined  to  form  a  single 
block  of  data  information.  The  data  from  OPTIONS  #2  and  #3  is  printed 
when  using  OPTION  #103.  The  data  from  OPTIONS  #11  and  #13  is  gener¬ 
ated  when  either  OPTION  #111  or  #113  is  selected.  The  same  occurs 
with  data  from  OPTIONS  #21  and  #22;  the  data  is  printed  by  using 
either  OPTION  #121  or  #122.  And  finally,  all  data  values  from 
OPTIONS  #23  to  #25  are  provided  by  selecting  any  option  number  from 
123  to  125. 


The  code  for  the  overlay  is  simple  and  self-explanatory.  The 
reader  is  directed  to  the  MJLTI  source  listing  for  further  detail  on 
this  overlay's  operation. 

5.  Option  Pre-requisites 

The  following  list  provides  the  prerequisite  requirements  for 
MCITI's  options. 

OPTION  #  PRE-REOJISITE  OPTION  # 

3,4,5,12,21,22,29  2 

14  2,  3,  11  to  13 

18  (entries  1  &  2)  5 


26 

31,32,34,35 

33 

36 


14,  21  to  25 
26 

31  or  32 
34  or  25 


j^gaaagM 
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6.  Variable  Names  and  Definitions 

There  are  some  variables  in  the  program  whose  purpose  is  not 
easily  identified  or  described  by  their  program  variable  name.  The 
following  list  provides  further  information  for  these  variables. 
CHARACTER  Variables 


Pur  pos  e/Def inition 


a  pm 

DMATRX 

SEN 

PITYPE 


INTEGER  Variables 


Flag  for  actuators 
Flag  for  D  matrix 
Flag  for  "sensors 
Matrix  printing  indicator  in 
Overlay  (15 »0) 


Purpose/Def inition 


ICIM 
I CODE 

ICOLMN 

H3EPTH 

IFUTCN 

IPIOT 

M 

MD 

N 

NA 

ND 

NEEPTH 

NPAIRS 

NS 

NUM 

P 

PD 


Running  variable  of  ICOIMN 
Denotes  type  of  plot  being 
requested 

Vector  of  specific  input/output 
numbers  for  plots 
Sampling  time  of  interest  for 
plots 

Number  of  simulations  being 
placed  on  one  plot 
Number  of  plots  on  PLOT  file 
Number  of  states  of  plant 
Maximum  number  of  states 
Number  of  inputs  of  plant 
Number  of  actuators 
Maximum  number  of  inputs 
Running  variable  of  IDEPTH 
Number  of  input/output  pairs 
to  be  plotted 
Number  of  sensors 
Number  of  columns  of  data  in  FLMAT 
Number  of  outputs  of  plant 
Maximum  number  of  outputs 


REAL  Variables 


3se/Def inition 


GN 

PIMAT 

UP 

YP 


Vector  of  all  sampling  times 
Plotting  matrix 
Input  data  matrix 
Output  data  matrix 
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Appendix  Cs  MJUI  Source  Listing 


The  following  code  is  the  FORTRAN  V  MJLTI  source  listing: 


iOO=C  ¥X¥X¥¥¥¥¥XX¥¥X¥X¥¥¥X¥XXX¥XX¥¥X¥XXX¥¥XX¥¥¥¥XX¥X¥XX¥XX¥X¥¥¥¥¥¥¥X¥¥XXX¥X¥ 

l io=c  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxixxxxxxxxxxxx 


120=C 

EXECUTIVE 

— 

MULTI 

130=C 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

140=C 

xxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

150= 

OVERLAY  < MULTI 1 

»0»0 ) 

160= 

PROGRAM  EXEC 

170= 

CHARACTER 

MULT IX 10 .DMATRX .METHOD. CH0ICEX6. ACT  »SEN 

180= 

INTEGER  P. 

PD 

190= 

REAL  KOfKl 

•  MM 

200= 

COMMON 

/B 

1  / 

NOPT » IERR » 1 PLANT • IFLAG(  40 ) 

210= 

COMMON 

/B 

2  / 

N»MrP»ND»MD»PD 

220= 

COMMON 

/B 

3  / 

GO(IO.IO) 

230= 

COMMON 

/B 

4  / 

A(  10»10)»B<  10.10). C(  10.10) 

240= 

COMMON 

/B 

5  / 

IK  10. 10) 

250= 

COMMON 

/B 

6  / 

DMATRX.ACT.SEN 

260= 

COMMON 

/B 

7  A/ 

NA( 10  )»AA(  10.2.2  ).BA(  10.2 ).CA(  10.2 ) 

270= 

COMMON 

/B 

7S/ 

NS(  10  ).  AS(  10.2.2  ).BS(  10.2).CS(  10.2) 

280= 

COMMON 

/B 

8  / 

ALPHA . EPSLON . GAMA(  10.10) 

290= 

COMMON 

/B 

8A/ 

METHOD 

300= 

COMMON 

/B 

9  / 

KOI  10. 10 )»K1(  10.10) 

310= 

COMMON 

/B 

10  / 

NG.GNI  10) 

320= 

COMMON 

/B 

11  / 

MMI 10.10) 

330= 

COMMON 

/B 

12  / 

W<  10  )»Q(  10  )»U(  10  ).  YM<  10  ) 

340= 

COMMON 

/B 

12A/ 

X0(  10).Z0(  10  ).V(  10) 

350= 

COMMON 

/B 

12B/ 

ST.TT 

360= 

COMMON 

/B 

13  / 

NT.YPI 100.11.2) 

370= 

COMMON 

/B 

13A/ 

UP( 100.11.2) 

380= 

COMMON 

/B 

13B/ 

ILIM. IMIN(  10  )»IMAX( 10  ).UMIN< 10 )»UMAX(  10 ) 

390= 

COMMON 

/B 

14  / 

ICODE.NUM.ICOLMNI 4  ).PLMAT(  102.4 ) 

400= 

COMMON 

/B 

14A/ 

CHOICE 

410= 

COMMON 

/B 

15  / 

ICLM . NP AIRS . NDEPTH . I DEPTH!  2 ) 

420= 

COMMON 

/B 

16  / 

IENTRY.IFLTCN. LINES 

430= 

COMMON 

/B 

17  / 

1PL0T 

440= 

DATA  MULTI 

•  ACT) 

'SEN/' MULTI' »'N' .'N'/ 

450= 

DATA  NOPT. 

I  ERR. 

’  IPLANT.N.M.P/6X0/ 

460= 

DATA  ND.MB 

•PD/3X10/ 

470= 

DATA  ALPHA  .EPSLON . ST » TT » NG » NT » ICODE . NUM/8X0/ 

480= 

DATA  ICLM. 

NPAIRS »NDEPTH»IENTRY»IFLTCN» LINES .1PL0T/7X0/ 

490= 

DATA  GN.XO 

•20.V/40X0,/ 

500= 

DATA  N* 

I.NS 

»AA»AS»BA»BS»CA»CS/20X1 »80X-500. » 40X500. » 40X1 ,/ 
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510*  DATA  IFLAG,U,Q,U,YM/40*0»40*0./ 

520*  DATA  GO. A,B»C.D»GANA,K0,Kl»MM/900*0./ 

530*  DATA  ILIM.IMIN»IMAX»UM1N,UMAX/21*0.10*-1.E10»10*1.E10/ 

540*  DATA  PLMAT»YP,UP/4808*0./ 

550=C - BEGINNING  MESSAGE - 

560=  PRINT  '(//A)'.  '  WELCOME  TO  MULTIVARIABLE  DESIGN' 

570*  PRINT  ' ( A  )' »  '  C  1981  PORTER. SMYTH .PASCHALL' 

580*  PRINT*.  '  ' 

590*  PRINT*.  'THIS  PROGRAM  USES  THE  DESIGN  TECHNIQUES  DEVELOPED  BY' 

600=  PRINT*.  'PROFESSOR  BRIAN  PORTER.  UNIV.  OF  SALFORD.  ENGLAND' 

610=C - OPTION  CALL - 

620=  9000  IF  (IERR.NE.O)  CALL  OVERLAY  (MULTI. 11.0) 

630*  PRINT  '(//A)'.  '  OPTION.  PLEASE  ;  *' 

640*  READ*.  NOPT 

650=  PRINT*.  '  ' 

660=C - ROUTING  FOR  OPTIONS  *0  TO  *9 - 

670=  IF  (N0PT.LT.10)  THEN 

680*  CALL  OVERLAY  (MULTI. 1.0) 

690*  DO  TO  9000 

700=C - ROUTING  FOR  OPTIONS  *10  TO  *19 - 

710*  ELSEIF  (  NOPT .EG. 14  )  THEN 

720=  3  PRINT*.  'ENTER  DESIGN  METHOD. . .UNKNOWN. REGULAR .IRREGULAR. . .>' 

730*  READ  '(A)',  METHOD 

740*  PRINT*.  '  ' 

750*  IF  (METHOD. ED. 'U'  )  THEN 

760=  CALL  OVERLAY  (MULTI, 3.0) 

770*  GO  TO  9000 

780=  ELSEIF  ( METHOD. EQ.'R'  )  THEN 

790*  CALL  OVERLAY  (MULTI.4,0) 

800*  GO  TO  9CD0 

810=  ELSEIF  (METHOD. EQ.' I' )  THEN 

820=  CALL  OVERLAY  (MULTI, 5,0) 

830=  GO  TO  9000 

840*  ELSE 

850*  GO  TO  3 

860*  EMDIF 

870=  ELSEIF  iN0PT.EQ.18)  THEN 

880=  CALL  OVERLAY  (MULT I, 6.0) 

890*  GO  TO  9000 

900*  ELSEIF  (NOPT. GE.IO.AND.NOPT.LT. 20)  THEN 

910=  CALL  OVERLAY  (MULTI, 2,0) 

920*  GO  TO  9000 

930*C - ROUTING  FOR  OPTIONS  *20  TO  *29 - 

940=  ELSEIF  ( NOPT. GE. 20. AND. NOPT. LT. 30  )  THEN 

950*  CALL  OVERLAY  (MULTI, 7,0) 

960*  GO  TO  9000 

970*C - ROUTING  FOR  OPTIONS  *30  TO  *39 - 

980*  ELSEIF  (  NOPT. GE. 30. AND .NOPT .LE.39  )  THEN 
990*  CALL  OVERLAY  (MULT I, 8.0) 

1000*  IF  ( IERR.NE.O)  GO  TO  9000 
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1010=  IF  <  NOPT .EQ.O )  GO  TO  9000 

1020=  IF  ( IFLTCN.NE.O )  GO  TO  9000 

1030*C - ROUTING  FOR  SPECIFIC  TYPE  OF  PLOT 

1040=  GO  TO  (5.5.5.10.10. 10 .14.14.14)  NOPT 

1050=  5  CALL  OVERLAY  (MULTI .9.0) 

1060=  GO  TO  9000 

1070=  10  CALL  OVERLAY  (MULTI .10.0) 

1080=  GO  TO  9000 

1090=  14  GO  TO  9000 

1100=C - ROUTING  FOR  OPTION  #99 - 

1110=  ELSEIF  ( NOPT. EQ. 99  )  THEN 
1120=  CALL  OVERLAY  (MULTI. 12.0) 

1130=  PRINT  '( /A/  )' »  '  HAVE  A  NICE  DAY!' 

1140=  STOP 

1 150=C - ROUTING  FOR  OPTIONS  #100  TO  *130- 

1160=  ELSEIF  (NOPT.GE. 100. AND. NOPT. LE. 130)  THEN 

1170=  CALL  OVERLAY  (MULTI.13.0) 

1180=  GO  TO  9000 

1190=C - ROUTING  FOR  NON-AVAILABLE  OPTIONS 

1200=  ELSE 

1210=  IERR=44 

1220=  GO  TO  9000 

1230=  ENDIF 


1240=C  - 

1250=  END 

i260=c 

1270=C  ********************************************************************** 

1280=C  THIS  SUBROUTINE  IS  USED  TO  PRINT  ALL  MATRICES 
1290=  SUBROUTINE  MATPR  (TR.1R.IC) 

1300=  DIMENSION  TR(  10.10) 

1310=  DO  15  1=1. IR 

1320=  15  PRINT  4005.  ( TR< I »J  ). J=1»IC ) 

1330=  PRINT*.  '  ' 

1340=  4005  FORMAT  (  3X. 10(  1E10.4.3X  ) ) 

1350=  END 

1360=C  ********************************************************************** 
1370=C  ********************************************************************** 

1380=C  THIS  SUBROUTINE  IS  USED  TO  ASK  IS  DATA  SHOULD  BE  PRINTED 
1390=  SUBROUTINE  OPR I NT  (CHAR.*) 

1400=  CHARACTER  CHAR*30 

1410=  PRINT  ' ( /A. A )' .  '  ENTER  "0*  TO  SKIP  '.CHAR 
1420=  PRINT*.  'ENTER  *1"  TO  OBTAIN  THIS  DATA  PRINTOUT. . 

1430=  READ*.  IPRINT 

1440=  IF  ( IPRINT. NE.l )  RETURN  1 

1450=  END 

1460=C  ********************************************************************** 
1470=C  ********************************************************************** 
1480-C  THIS  SUBROUTINE  IS  USED  TO  ASK  IF  DATA  IS  CORRECT 
1490=  SUBROUTINE  ANSUER( «.*  ) 

1500=  CHARACTER  ANSER 
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1510*  PRINT  '(/A)'  »  '  IS  THIS  CORRECT. . .YES, NO, $.. .>' 

1520=  READ  '(A)' »  ANSER 

1530=  PRINT*.  '  ' 

1540=  IF  (ANSER.EQ.'Y'  )  GO  TO  20 

1550=  IF  ( ANSER.EQ.'N' )  RETURN  1 

1560=  IF  ( ANSER. EQ. ' *'  >  RETURN  2 
1570=  20  CONTINUE 

1580=  END 

1590=C  ********************************************************************** 
i600=c  xxyxxxxxxxxxxxxyxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx* 
1610=C  THIS  SUBROUTINE  IS  USED  TO  INVERT  ALL  MATRICES 
1620=  SUBROUTINE  INVERT( A.AINV.N. IA.X  ) 

1630=  DIMENSION  WKAREA( 130 >,A( IA.IA  ),AINV< 1A,IA > 

1640=  DATA  WKAREA/ 130X0./ 

1650=  IDGT=10 

1660=  CALL  LINV2F  (  A. N.IA.AINV. IDGT, WKAREA. 1ER  ) 

1670=  IF  ( IER.EG.34 )  GO  TO  25 

1680=  IF  ( IER.EQ.131 )  GO  TO  30 

1690=  IF  ( IER.EQ.129 )  GO  TO  35 

1700=  RETURN 

1710=  25  PRINT*.  'ACCURACY  TEST  FAILED. . .DATA  MAY  BE  SUSPECT' 

1720=  RETURN 

1730=  30  PRINT*.  'MATRIX  TOO  ILL-CONDITIONED  FOR  ITERATIVE  IMPROVEMENT  TO  B 

1740=  XE  EFFECTIVE' 

1750=  RETURN  1 

1760=  35  PRINT*.  'MATRIX  IS  SINGULAR  AND  CANNOT  BE  INVERTED' 

1770=  RETURN  1 

1780=  END 

1790=c  x***xx**yxxxx**xxx*xxx*xxxxxxxxxxxxxxxxx*x*xxxx*xxxxx*xxxxxxxx*xxxxxx* 
1800=C  ********************************************************************** 
1810=C  OPTIONS  #0  THRU  #9 

1820=C  ********************************************************************** 
1830=C  ********************************************************************** 
1840=  OVERLAY  (1,0) 

1850=  PROGRAM  OPTO 

1860=  INTEGER  P. PD. DATA 

1870=  CHARACTER  LFNX30 » DMATRX . ACT . SEN 

1880=  COMMON  /B  1  /  NOPT. IERR, IPLANT. IFLAG( 40 ) 

18y0=  COMMON  /B  2  /  N.M.P.ND.MD.PD 

1900=  COMMON  /B  3  /  GO(IO.IO) 

1910=  COMMON  /B  4  /  A< 10. 10  ).B< 10, 10 )»C( 10. 10  ) 

1920=  COMMON  /B  5  /  D(10,10) 

1960=  COMMON  /B  6  /  DMATRX, ACT, SEN 

1V40=  COMMON  /B  7A/  NA(  10  ),AA(  10,2,2  )»BA< 10,2  )»CA< 10,2  ) 

1950=  COMMON  /B  7S/  NS(  10  ),AS(  10,2,2  ),BS(  10,2  ),CS(  10,2  ) 

1960=C  - 

19/0=  IERR=2 

1980*  GO  TO  (2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 )NOPT 

ivyo=c  ********************************************************************** 

2000=C  OPTION  #0 


2010= 

PRINT*, 

' PLANT 

INPUT  OPTIONS:' 

2020= 

PRINT*, 

/ 

0. 

LIST  OPTIONS  0  THRU  9' 

2030= 

PRINT*, 

/ 

1. 

ENTER  G(  0 )  MATRIX' 

2040= 

PRINT*, 

i 

2. 

ENTER  *  OF  STATES,  INPUTS  &  OUTPUTS  <N»M»P)' 

2050= 

PRINT*, 

» 

3. 

ENTER  PLANT  A,  B,  C,  &  D  MATRICES' 

2060= 

PRINT*, 

/ 

4. 

ENTER  ACTUATOR  STATE  EQUATION  MATRIX  DATA' 

2070= 

PRINT*, 

§ 

5. 

ENTER  SENSOR  STATE  EQUATION  MATRIX  DATA' 

2080= 

PRINT*, 

t 

6. 

OPTION  RESERVED' 

2090= 

PRINT*, 

i 

7. 

OPTION  RESERVED' 

2100= 

PRINT*, 

$ 

8. 

COPY  G<  0 )  INFO  FROM  LOCAL  FILE' 

2110= 

PRINT*, 

i 

9. 

COPY  PLANT,  ACTUATOR  &  SENSOR  INFO  FROM  LOCAL  FI 

2120=  *LE' 

2130*  GO  TO  8001 

2no=c  ********************************************************************** 

2150=C  OPTION  #1 

2160=  2001  PRINT*,  'THIS  OPTION  ENTERS  THE  STEADY  STATE  TRANSFER  FUNCTION  HAT 
2170=  *RIX»  G(  0 )' 

2180=  PRINT*,  '  ' 

2190=  PRINT*,  'PLEASE  ENTER  THE  NUMBER  OF  INPUTS  AND  OUTPUTS  >' 

2200=  READ**  M,P 

2210=  IF  <H.NE.P)  THEN 

2220=  IERR=40 

2230=  GO  TO  9001 

2240=  END IF 

2250=  PRINT*,  '  ' 

2260=  PRINTS  '  ' 

2270=  PRINT*,  'ENTER  G<0)  MATRIX. »P, '  ROWS  WITH  ',M,'  ELEMENTS  EACH' 

2280=  DO  260  1=1, P 

2290=  PRINT*,  'ROW  ',1,'  >' 

2300=  260  READ*,  ( G0( I, J  )» J=1»H ) 

2310=  IPLANT=2 

2320=  INTER=1 

2330=  IFLAG( 1  )=1 

2340=  GO  TO  8001 

2350=C  ********************************************************************** 

2360=C  OPTION  #2 

2370=  2002  PRINT*,  'THIS  OPTION  SETS  THE  NUMBER  OF  STATES,  INPUTS  &  OUTPUTS' 
2380=  PRINT  '(/A)',  '  ENTER  NUMBER  OF  STATES,  INPUTS  AND  OUTPUTS  >' 

2390=  READ*,  N,M,P 

2400=  IFLAG( 2  )=1 

2410=  GO  TO  8001 

2420=C  ********************************************************************** 

2430=C  OPTION  #3 

2440=  2003  PRINT*,  'THIS  OPTION  ENTERS  THE  PLANT  A»B,C,  AND  D  MATRICES' 

2450=  PRINT*,  '  ' 

2460=  IF  (IFLAG(IERR).EQ.O)  GO  TO  9001 

2470=  265  PRINT*,  'ENTER  “A"  MATRIX. ,N, '  ROWS  WITH  ',N,'  ELEMENTS  EACH' 

2480=  DO  275  I=1,N 

2490=  PRINT*,  'ROW  ',1,'  >' 

2500=  275  READ*,  < A< I»J)»J=1,N) 
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2510=  PRINT  4015 

2520=  CALL  MATPR  <A,N,N) 

2530=  CALL  ANSWER  ( *265 , *8001) 

2540=  280  PRINT*.  ' ENTER  *BB  MATRIX. ..' ,N»'  RONS  WITH  '»M»'  ELEMENTS  EACH' 

2550=  DO  285  1=1. N 

2560=  PRINT*.  'ROW  '.I.'  >' 

2570=  285  READ*.  ( B< I.J  ). J=1*M) 

2580=  PRINT  4020 

2590=  CALL  MATPR  (B.N.M) 

2600=  CALL  ANSWER  (*280. *8001) 

2610=  290  PRINT*.  'ENTER  “C"  MATRIX...' .P.'  ROWS  WITH  '»N»'  ELEMENTS  EACH' 

2620=  DO  295  1=1. P 

2630=  PRINT*.  'ROW  '.I.'  >' 

2640=  295  READ*.  <  C( I.J  )» J=1»N  ) 

2650=  PRINT  4030 

2660=  CALL  MATPR  (C.P.N) 

2670=  CALL  ANSWER  (*290. *8001) 

2680=  296  PRINT*.  'IS  THERE  A  *D"  MATRIX... YES  OR  N0...>' 

2690=  READ  '(A)'.  DMATRX 

2700=  IF  (DMATRX. NE.'Y' )  THEN 

2710=  DO  297  1=1. P 

2720=  DO  297  J-l.M 

2730=  297  D( I. J  )=0. 

2740=  GO  TO  310 

2750=  END IF 

2760=  PRINT*.  '  ' 

2770=  PRINT*.  'ENTER  “D"  MATRIX. .,' .P. '  ROWS  WITH  ' .M .'  ELEMENTS  EACH' 

2780=  DO  300  1=1, P 

2790=  PRINT*,  'ROW  '.I,'  >' 

2800=  300  READ*,  ( D( I.J  ), J=1,M ) 

2810=  PRINT  4035 

2820=  CALL  MATPR  (D.P.M) 

2830=  CALL  ANSWER  <*296, *8001) 

2840=  310  CONTINUE 

2850=  IFLAG( 3  )=1 

2860=  IPLANT=1 

2870=  GO  TO  8001 

2880=C  ********************************************************************** 

2890=C  OPTION  #4 

2900=  2004  PRINT*,  'THIS  OPTION  ENTERS  THE  ACTUATOR  STATE  EQUATION  DATA' 

2910=  PRINT*,  '  ' 

2920=  IF  (IFLAG(IERR).EQ.O)  GO  TO  9001 

2930=  PRINT*,  'ENTER  -O'*  TO  ELIMINATE  ACTUATORS' 

2940=  PRINT*,  'ENTER  "1"  TO  SET  ACTUATOR  VALUES... >' 

2950=  READ*,  ISKIP 

2960=  IF  ( ISKIP, EQ.O)  GO  TO  351 

2970=  PRINT*,  'ENTER  NUMBER  OF  STATES  OF  EACH  OF  THE  '»M,'  ACTUATORS  >' 
2980=  READ*,  ( NA< I ), 1=1 »M  ) 

2990=  PRINT*,  '  ' 

300C=  DO  350  K=1»M 
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3010=  PRINT**  ' ENTER  THE  DATA  FOR  ACTUATOR  #'»K»' 

3020=  PRINT**  '  ' 

3030=  PRINT**  'ENTER  THE  ’A"  MATRIX. . .' »NA< K >*'  ROWS  WITH  ' *NA( K )»'  ELEH 
3040=  tENTS  EACH' 

3050=  DO  340  I=1*NA(K) 

3060=  PRINT*.  'ROW  '.I*'  >' 

3070=  340  READ*.  ( AA< K*I . J  )* J=1 *NA(  K ) ) 

3080=  PRINT*.  '  ' 

3090=  PRINT*.  'ENTER  THE  •B*  COLUMN. . .' »NA( K  ).'  ELEMENTS' 

3100=  PRINT*.  '*B“  COLUMN  >' 

3110=  READ*.  ( BA<  K»I )» I=1»NA(  K ) ) 

3120*  PRINT*.  '  ' 

3130=  PRINT*.  'ENTER  THE  “C*  ROW. . . ' *NA( K  ). '  ELEMENTS' 

3140=  PRINT*.  '"C"  ROW  >' 

3150=  READ*.  ( CA( K.I ). I=1.NA( K  ) ) 

3160=  PRINT  '</)' 

3170=  350  CONTINUE 
3180=  ACT*' Y' 

3190=  IFLAG( 4  >=1 

3200=  GO  TO  8001 

3210=C - ELIMINATE  ACTUATORS - 

3220=  351  DO  352  K=l»10 
3230=  NA(  K  )=1 

3240=  DO  352  1=1.2 

3250=  BA<  K.I  )=9999. 

3260=  CA(  K.I  )=1. 

3270=  DO  352  J=1.2 

3280=  352  AA( K.I. J  )=-9999, 

3290=  ACT='N' 

3300=  IFLAG<  4  )=0 

3310=  "0  TO  8001 

3320=C  ********************************************************************** 

3330=C  OPTION  #5 

3340=  2005  PRINT*.  'THIS  OPTION  ENTERS  THE  SENSOR  STATE  EQUATION  DATA' 

3350=  PRINT*.  '  ' 

3360=  IF  IFLAG<  IERR  ).EQ.O )  GO  TO  9001 
3370=  PRINT*.  'ENTER  “0B  TO  ELIMINATE  SENSORS' 

3380=  PRINT*.  'ENTER  *1"  TO  SET  SENSOR  VALUES... >' 

3390=  READ*.  ISKIP 

3400=  IF  ( ISKIP. EQ.O)  GO  TO  376 

3410=  PRINT*.  'ENTER  NUMBER  OF  STATES  OF  EACH  OF  THE  ' .P.'  SENSORS  >' 
3420=  READ*.  ( NS( I  )»I=1»P  ) 

3430=  PRINT*.  '  ' 

3440=  DO  375  K=1»P 

3450=  PRINT*.  'ENTER  THE  DATA  FOR  SENSOR  t'»K»'...' 

3460=  PRINT*.  '  ' 

3470=  PRINT*.  'ENTER  THE  "A*  MATRIX. ..' »NS( K ).'  ROWS  WITH  '.NS<K>»'  ELEM 
3480=  *ENTS  EACH' 

3490=  DO  360  I=1.NS(K) 

3500=  PRINT*.  'ROW  '.I.'  >' 
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3510-  360  READS'  ( AS< K»I» J  )* J=1 * NS( K > ) 

3520*  PRINTS'  '  ' 

3530*  PRINTS'  'ENTER  THE  "B*  COLUMN. ..' .NS< K  )»'  ELEMENTS' 

3540*  PRINTS'  '*B“  COLUMN  >' 

3550*  READS'  (BS(K»I )»I=1.NS(K)> 

3560*  PRINTS'  '  ' 

3570=  PRINTS'  'ENTER  THE  -C"  ROW.  • .' »NS( K  )» '  ELEMENTS' 

3580=  PRINTS'  '"C"  fcOW  >' 

3590*  READS'  ( CS< K»I )> 1*1. NS< K  ) ) 

3600=  PRINT  '(/>' 

3610*  375  CONTINUE 

3620*  SEN='Y' 

3630*  IFLAG(  5  )=1 

3640=  GO  TO  8001 

3650*C - ELIMINATE  SENSORS - 

3660*  376  DO  377  K=l»10 

3670*  NS(K)=1 

3680*  DO  377  1=1.2 

3690*  BS<  K»I  )=9999. 

3700=  CS( K.I  )*1. 

3710*  DO  377  J=l,2 

3720*  377  AS< K.I. J >=-9999. 

3730*  SEN='N' 

3740*  IFLAG( 5  )=0 

3750=  GO  TO  8001 

3760*C  ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

3770=C  OPTION  *6 
3780*  2006  IERR=44 
3790=  GO  TO  9001 

3800=C  **ss***ss***sxss*xxx***xss*xs*ss***ss****xx**sxsx**x*x***sss***ss**sxs 
3810*C  OPTION  #7 
3820=  2007  IERR*44 
3830=  GO  TO  9001 

3840=C  ssssssssssssxssssxssssssssssxsssssxsxsssssssssssssssmssssxsssxsxssss 
3850=C  OPTION  #8 

3860*  2008  PRINT  '(A />'.  '  THIS  OPTION  COPIES  G( 0 )  FROM  A  LOCAL  DATA  FILE' 
3870=  380  PRINTS.  'ENTER  LOCAL  FILE  NAME  THAT  HOLDS  G(0)  INFORMATION' 

3880=  PRINTS.  '  >' 

3890*  READ  '(A)'.  LFN 

3900*  PRINTS.  'LOCAL  FILE  NAME  IS  >'.LFN 

3910=  CALL  ANSWER  (S380.S8001) 

3920*  DATA* 10 

3930*  OPEN  <DATA.FILE*LFN> 

3940*  REWIND  DATA 

3950*  READ  (DATA'S)  I PLANT 

79AAs  TPPPsB 

3970=  IF  (IPLANT.EQ.i)  GO  TO  9001 

3980=  READ  (DATA'S)  M.P 

3990*  DO  385  1*1 .P 

4000*  385  READ  (DATA'S)  (  G0(  I» J ).J*1»M  ) 
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4010= 

4020* 

4030= 

4040= 

4050= 

4060=1 

4070=1 

4080= 

4090= 

4100= 

4110= 

4120= 

4130= 

4140= 

4150= 

4160= 

4170= 

4180= 

4190= 

4200= 

4210* 

4220= 

4230= 

4240= 

4250= 

4260= 

4270= 

4280= 

4290= 

4300= 

4310= 

4320= 

4330= 

4340= 

4350= 

4360= 

4370= 

4380= 

4390= 

4400= 

4410= 

4420= 

4430= 

4440= 

4450= 

4460= 

4470= 

4480= 

4490= 

4500= 


PRINT  '(/A)',  '  DATA  COPY  COMPLETE  FOR  OPTION  #1' 

I FLAG! 1  )=1 
INTER=2 

CLOSE  ( DATA, STATUS=' KEEP'  ) 

GO  TO  8001 

:  **f**x****x*t******t***xt»*x**m*x****xxx*m*****x***x*m**xt**x*x* 

:  OPTION  #9 

2009  PRINT*.  'THIS  OPTION  COPIES  STATE  EON  INFO  FROM  A  LOCAL  DATA  FILE' 
PRINT*.  '  ' 

390  PRINT*.  'ENTER  LOCAL  FILE  NAME  THAT  HOLDS  STATE  EON  INFORMATION' 
PRINT*.  '  >' 

READ  '(A)'.  LFN 

PRINT*.  'LOCAL  FILE  NAME  IS  >',LFN 
CALL  ANSWER  (*390. *8001) 

DATA* 10 

OPEN  ( DATA»FILE=LFN ) 

REWIND  DATA 

READ  (DATA.*)  I PLANT 

IERR=9 

IF  (IPLANT.EQ.O)  PRINT  '(/A/)',  '  DATA  MAY  BE  INCOMPLETE. . .CHECK  P 
*RINTOUTS' 

IF  (IPLANT.EQ.2)  GO  TO  9001 
READ  (DATA.*)  N.M.P 
DO  395  1=1. N 

395  READ  (DATA.*)  ( A( I » J  )» J=1»N ) 

DO  400  1=1, N 

400  READ  (DATA,*)  <  B( I »J  )»J=1,M ) 

DO  405  1=1, P 

405  READ  (DATA,*)  ( C( I. J  )» J=1,N  ) 

READ  (DATA.'(A)'  )  DMATRX 
IF  ( DMATRX. EQ.'N'  )  GO  TO  430 
DO  410  1=1, P 

410  READ  (DATA,*)  ( D< I, J  ), J=1.M  ) 

430  READ  (DATA, '(A)'  )  ACT 

IF  (ACT. EQ.'N' )  GO  TO  441 
READ  (DATA,*)  <  NA< I  )»I=1»M) 

DO  440  K=1,M 
DO  435  1=1 »NA(  K  ) 

435  READ  (DATA,*)  ( AA( N,I » J  )» J*1 ,NA( K  ) ) 

READ  (DATA,*)  <  BA( K,1  )»I=1»NA( K  ) ) 

READ  (DATA,*)  ( CA( K.I  )»I=1»NA( K  ) ) 

440  CONTINUE 

441  READ  (DATA,' (A)'  )  SEN 

IF  (SEN. EQ.'N'  )  GO  TO  465 
READ  (DATA,*)  (NS<  I  >»I=1»P) 

DO  450  K=1 , r 
DO  445  1=1 ,NS(  K  ) 

445  READ  (DATA,*)  (  AS(  K, I , J  )» J=1 ,NS( K  ) ) 

READ  (DATA,*)  ( BS( K,I  ),I=1,NS( K  ) ) 

READ  (DATA,*)  ( CS( K, I  ),I=1,NS( K  ) ) 
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AND.SEN.EQ.'Y' 

) 

PRINT*, 

't2* 

#3* 

#4*  #5' 

AND.SEN.EQ.'N' 

) 

PRINT** 

'#2* 

#3* 

#4' 

AND.SEN.EQ.'Y' 

) 

PRINT** 

'#2* 

#3* 

*5' 

AND.SEN.EQ.'N' 

) 

PRINT** 

'#2* 

#3' 

4510*  450  CONTINUE 

4520*  465  PRINT**  'DATA  COPY  COMPLETE  FOR  OPTIONS' 

4530=  IF  (ACT.EQ.' 

4540*  IF  (ACT.EQ.' 

4550*  IF  (ACT.EQ.' 

4560*  IF  (ACT.EQ.' 

4570=  INTER=2 

4580*  DO  480  1=2*5 

4590*  480  IFLAG< I  )=1 

4600*  •  CLOSE  (DATA, STATUS*' KEEP' ) 

4610=  GO  TO  8001 

4620=C  ********************************************************************** 
4630=C  ********************************************************************** 


4640=C  FORMAT  STATEMENTS 

4650=C  ********************************************************************** 
4660*  4015  FORMAT  ( /IX* 'PLANT  MATRIX  A...'/) 

4670=  4020  FORMAT  (/1X*'PLANT  MATRIX  B. . .' /  ) 

4680=  4030  FORMAT  (/IX, 'OUTPUT  MATRIX  C...'/) 

4690=  4035  FORMAT  </lX*'DIRECT  OUTPUT  MATRIX  D...'/> 

4700=  4050  FORMAT  ( IX* 1F10.4,23X* 1F10.4* 11X, 1F10.4  ) 

4710=C  - 1 - 

4720=  8001  IERR=0 
4730=  9001  CONTINUE 
4740=  END 

4750=C  ********************************************************************** 
4760=C  ********************************************************************** 

4770=C  OPTIONS  *10  THRU  *19  —  LESS  DESIGN  OPTIONS 

4780=C  ********************************************************************** 
4790=C  ********************************************************************** 


4800=  OVERLAY  (2*0) 

4810=  PROGRAM  0PT10 

4820=  CHARACTER  METHOD *LFN*30 

4830=  REAL  K0,K1,MM 

4840=  INTEGER  P,PD*DATB 

4850=  COMMON  /B  1  /  NOPT * IERR*IPLANT * IFLAG( 40 ) 

4860=  COMMON  /B  2  /  N*M*P*ND*MD*PD 

4870=  COMMON  /B  8  /  ALPHA *EPSLON*GAMA< 10*10) 

4880=  COMMON  /B  8A/  METHOD 

4890=  COMMON  /B  9  /  K0( 10, 10  )*K1(  10* 10  ) 

4900=  COMMON  /B  10  /  NG*GN(10) 

4910=  COMMON  /B  11  /  MM(10,10> 

4920=  DIMENSION  W< 10* 10 )*«H(  10*10 >*ZZ< 10* 10 ) 

4930=  DATA  W,WU*ZZ/300*0./ 

4940=C - - - 

4950=  IERR=2 

4960=  NOPT=N0PT-10 

4970=  GO  TO  (2011*2012,2013*8002*2015*2016*2017*8002*2019)  NOPT 

4980=C  ********************************************************************** 

4990=C  OPTION  #10 

5000=  PRINT**  'DESIGN  PARAMETER  INPUT  OPTIONS!' 
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5010= 

PRINT*, 

t 

10. 

LIST  OPTIONS  10  THRU  19' 

5020= 

PRINT*, 

i 

11. 

ENTER  ALPHA' 

5030= 

PRINT*, 

t 

12. 

ENTER  SIGMA  WEIGHTING  MATRIX' 

5040= 

PRINT*, 

! 

13-, 

ENTER  EPSILON  (SIGMA  MATRIX  MULTIPLIER)' 

5050= 

PRINT*, 

» 

14. 

RUN  DESIGN... UNKNOWN,  REGULAR  &  IRREGULAR  PLANTS 

5060= 

*' 

5070* 

PRINT*, 

$ 

15. 

OPTION  RESERVED' 

5080= 

PRINT*, 

/ 

16. 

OPTION  RESERVED' 

5090= 

PRINT*, 

/ 

17. 

OPTION  RESERVED' 

5100= 

PRINT*, 

i 

18. 

MEASUREMENT  MATRIX  FORMATION. . .OR' 

5110= 

PRINT*, 

i 

ROW  &  COLUMN  OPERATIONS  ON  C*B  OR  OTHER  MATRIX' 

5120= 

PRINT*, 

/ 

19. 

COPY  DESIGN  PARAMETERS  FROM  LOCAL  FILE' 

5130= 

GO  TO  8002 

5140=C  ********************************************************************** 

5150=C  OPTION  #11 

5160=  2011  PRINTS  'THIS  OPTION  SETS  THE  PROPORTION  OF  INTEGRAL  AND  DIRECT  FE 
5170=  *EDBACK' 

5180=  PRINT*,  '  ' 

5190=  PRINT*,  'ENTER  ALPHA  >' 

5200=  READ*,  ALPHA 

5210=  IFLAG( 11  )=1 

5220=  GO  TO  8002 

5230=C  ********************************************************************** 

5240=C  OPTION  *12 

5250=  2012  PRINT*,  'THIS  OPTION  SETS  THE  WEIGHTING  BETWEEN  OUTPUT  CHANNELS' 
5260=  PRINT*,  '  ' 

5270=  IF  (IPLANT.EQ.2)  GO  TO  501 

5280=  IF  ( IFLAG<  IERRKEG.O)  GO  TO  9002 

5290=  501  PRINT*,  'ENTER  SIGMA  WEIGHTING  MATRIX. ..' ,P, '  DIAGONAL  ELEMENTS  ON 

5300=  *LY' 

5310=  PRINT*,  'DIAGONAL  ELEMENTS  >' 

5320=  READ*,  ( GAMA( I, I  )»I=1»P ) 

5330=  IFLAG< 12  )=1 

5340=  GO  TO  8002 

5350=C  ********************************************************************** 
5360=C  OPTION  #13 

5370=  2013  PRINT*,  'THIS  OPTION  SETS  THE  WEIGHTING  MATRIX  MULTIPLIER' 

5380=  PRINT*,  '  ' 

5390=  PRINT*,  'ENTER  SIGMA  MATRIX  SCALAR  MULTIPLIER,  EPSILON  >' 

5400=  READ*,  EPSLON 

5410=  IFLAG< 13  )=1 

5420=  GO  TO  8002 

5430=C  ********************************************************************** 
5440=C  OPTION  *14  IS  AN  OVERLAY 

5450=C  ********************************************************************** 

5460=C  OPTION  #15 

5470=  2015  IERR*44 

5480=  N0PT*N0PT+10 

5490=  ,  CO  TO  9002 

5500*C  ********************************************************************** 


5510*C  OPTION  #16 
5520*  2016  IERR*44 
5530*  N0PT*N0PT+10 

5540*  GO  TO  9002 

5550*C  ********************************************************************** 

5560*C  OPTION  #17 
5570*  2017  I£RR=44 
5580*  NQPT*NOPT+10 

5590=  GO  TO  9002 

5600=C  ********************************************************************** 

5610*C  OPTION  #18  IS  AN  OVERLAY 

5620=C  ********************************************************************** 

5630=C  OPTION  *19 

5640=  2019  PRINT**  'THIS  OPTION  READS  DESIGN  PARAMETERS  FROM  A  LOCAL  DATA  FIL 
5650=  *E' 

5660=  IF  ( IFLAG< IERR  ).EQ.O  )  GO  TO  9002 

5670=  505  PRINT  '(/A)'.  '  ENTER  LOCAL  FILE  NAME  THAT  HOLDS  DESIGN  PARAMETERS 
5680=  *' 

5690=  PRINT**  '  >' 

5700=  READ  '  ( A )'  ,  LFN 

5710=  PRINT*.  'LOCAL  FILE  NAME  IS  >'.LFN 

5720=  CALL  ANSWER  (*505**8002) 

5730=  DATB=35 

5740=  OPEN  ( DATB,FILE=LFN ) 

5750=  REMIND  DATB 

5760=  READ  (DATB* '(A)'  )  METHOD 

5770=  READ  (DATB**)  ALPHA 

5780=  READ  (DATB,*)  < GAMA< 1 ,1 ), 1=1 ,P ) 

5790=  READ  (DATB,*)  EPSLON 

5800=  DO  510  1=1, M 

5810=  510  READ  (DATB,*)  ( K0( I  * J  )* J=1 *P  ) 

5820=  IF  ( ALPHA. EQ.l)  THEN 

5830=  DO  515  1=1 *M 

5840=  DO  515  J=1*P 

5850=  515  Kl( I, J  )=K0(  I*J  ) 

5860=  GO  TO  530 

5870=  ENDIF 

5880=  DO  520  1=1 *M 

5890=  520  READ  (DATB,*)  ( Kl(  I* J  )*J=1*P  ) 

5900*  530  IF  ( METHOD. EQ.' I' )  THEN 

5910=  DO  540  I=1*P 

5920*  540  READ  (DATB,*)  ( MM( I* J  )* J=1 ,N-M  ) 

5930=  ENDIF 

5940=  PRINT*,  'DATA  COPY  COMPLETE  FOR  OPTIONS' 

5950=  IF  ( METHOD. NE.' I'  )  PRINT*,  '*11,  #12,  *13,  #14' 

5960*  IF  ( METHOD. EQ.' I'  )  PRINT*,  '*11,  #12.  #13,  #14,  *18' 

5970*  DO  565  IERR=11,14 

5980=  565  IFLAG< IERR  )=1 

5990*  IF  ( METHOD. EQ.' I' )  IFLAG<18)=1 

6000=  CLOSE  (DATB, STATUS*' KEEP' ) 
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6010*C -  •  - 

6020*  8002  IERR=0 
6030*  9002  CONTINUE 
6040*  END 

60S0*c 

6060*c  *xx$*x*»m*xm**xm**mxx*i****xx»*x*mm*m***%mm***xm*t 

6070*C  OPTION  #14  —  UNKNOWN  PLANTS 

6080=c 

6090*c  ******************************************************:sm************ 
6100*  OVERLAY  (3.0) 

6110*  PROGRAM  0PT14U 

6120*  INTEGER  P.PD 

6130=  REAL  K0.K1 

6140=  CHARACTER  METH0B.LFNX30 

6150=  COMMON  /B  1  /  NOPT .1 ERR .1 PLANT »1FLAG< 40 ) 

6160=  COMMON  /B  2  /  N.M.P.ND.MD.PD 

6170=  COMMON  /B  3  /  GO(lOrlO) 

6180=  COMMON  /B  4  /  A< 10. 10  )» B< 10. 10  ).C< 10.10 ) 

6190=  COMMON  /B  5/D(10»10) 

6200=  COMMON  /B  8  /  ALPHA. EPSLDN»CAMA< 10.10  ) 

6210=  COMMON  /B  8A/  METHOD 

6220=  COMMON  /B  9  /  K0< 10. 10  )»K1< 10. 10  ) 

6230=  DIMENSION  CM(  10. 10  >» VV< 10. 10  ).WW<  10. 10  )»ZZ< 10. 10  ) 

6240=  DATA  CM.VV.WW.ZZ/40OX0,/ 

6250=  DO  601  1=1. P 

6260=  DO  601  J=1.N 
6270=  601  CM( I .  J  )=C( I.J ) 

6280*  PRINT*.  'THIS  OPTION  COMPUTES  KO  &  K1  FOR  UNKNOWN  PLANTS' 

6290=  DO  603  IERR=11,13 

6300=  603  IF  (IFLAG(IERR).EQ.O)  GO  TO  9003 

6310=  IF  (IPLANT.EQ.2)  GO  TO  610 

6320=  DO  605  IERR=2»3 

6330=  605  IF  ( IFLAG( IERR  ) . EG . 0  )  GO  TO  9003 

6340=  IPLANT=1 

6350=  610  CONTINUE 

6360=  IF  (IPLANT.EQ.2)  GO  TO  650 

6370=C - CREATE  AI  *  B - 

6380=  CALL  INVERT  ( A. VV.N.ND.X695  ) 

6390=  DO  620  1=1. N 

6400=  DO  620  J=1»M 

6410*  S=0. 

6420=  DO  615  K=1.N 

6430=  615  S=S+VV( I.K  )*B<  K . J  ) 

6440*  ZZ(I.J)=S 
6450=  620  CONTINUE 

6460=C  - 

6470=  DO  630  1=1. P 

6480=  DO  630  J=1.M 

6490=  S=0. 

6500=  DO  625  K=1.N 


CREATE  G( 0 ) 


6510* 
6520= 
6530= 
6540= 
6550= 
6560= 
6570= 
6580= 
6590= 
6600= 
6610= 
6620= 
6630= 
6640= 
6650= 
6660= 
6670= 
6680= 
6690= 
6700= 
6710= 
$7 20= 
6730= 
6740= 
6750= 
6760= 
6770= 
6780= 
6790= 
6800= 
6810= 
6820= 
6830= 
6840= 
6850= 
6860= 
6870= 
6880= 
6890= 
6900= 
6910= 
6920= 
6930= 
6940= 
6950= 
6960= 
6970= 
6980= 
6990= 
7000= 


S=S+C< l»K)tZZ<K»J ) 

GO<  IrJ)=DUrJ)-S 
CONTINUE 

LFN='G(  0 )  MATRIX  PRINTOUT' 

CALL  QPRINT  <LFNt*635) 

PRINT  '  (  /A/ )'  f  '  G( 0  )  MATRIX...' 

CALL  MATPR  (GO»P»M) 

- CREATE  GM<  0  ) - 

DO  645  I=lfP 
DO  645  J=1 »M 
S=0. 

DO  640  K=1 »N 
S=S+CM(I»K)*2Z(K»J) 

UW(IrJ)=D<I»J)-S 

CONTINUE 

- ENTRY  FOR  G(0)  FROM  FILE- 

IF  (IPLANT.EQ.2)  THEN 
DO  655  I=1*P 
DO  655  J=1 »M 
MM(  If  J)=GO(  I»J) 

END  IF 

- CREATE  KO  &  K1 - 

CALL  INVERT  ( GOf UUr Mf MDf *705  ) 

DO  685  1=1 fM 
DO  685  J=1 rP 
S=0. 

DO  680  K=lfP 
S=S+UU(IfK)*GAMA(KfJ) 

Kl(  I»J)=S*EPSLON 

K0(  I f J  )=ALPHA*S*EPSLON 

CONTINUE 

PRINT  '(/A)',  '  KO  &  K1  MATRICES  FORMED' 


IFLAG( 14  )=1 
METHOD3' U' 

GO  TO  8003 

695  IERR=36  * 

GO  TO  9003 
705  IERR=31 
GO  TO  9003 
8003  IERR=0 

9003  IF  < IERR.NE.0 )  METHOD='X' 

END 

c  mmmtmmmmmtttt m**mmm*mmm*m*m*m**m 
c  t$tt$t*$tt**tt$t*$*t$**$t*t*$$$$**t$tt*$**tt*t*$***t$t$***t$**$ttt***t 

C  OPTION  014  —  REGULAR  PLANTS 

OVERLAY  (4f0) 

PROGRAM  0PT14R 


7010*  REAL  K0.K1 

7020-  INTEGER  P.PD 

7030*  CHARACTER  METHOD .LFN430 

7040*  COMMON  /B  1  /  NOPT»IERR»IPLANT»IFLAG( 40 ) 

7050*  COMMON  /B  2  /  N.M.P.ND.MD.PD 

7060*  COMMON  /B  4  /  A( 10. 10 >»B< 10. 10 ). C< 10. 10 ) 

7070=  COMMON  /B  8  /  ALPHA.EPSLON»GAMA< 10. 10  ) 

7080*  COMMON  /B  8A/  METHOD 

7090*  COMMON  /B  9  /  K0< 10. 10  )»K1< 10. 10 > 

7100*  DIMENSION  VV( 10. 10 ).UU< 10»10  )»ZZ<  10. 10) 

7110=  DATA  VV » WW » ZZ/30040 . / 

7120*  PRINT*.  'THIS  OPTION  COMPUTES  KO  &  K1  FOR  REGULAR  PLANTS' 

7130*  DO  800  IERR=11»13 

7140=  800  IF  ( IFLAG< IERR  ).EQ.O  >  GO  TO  9004 

7150*  DO  805  IERR=2.3 

7160*  805  IF  ( IFLAG(IERR).EQ.O)  GO  TO  9004 

7170=C - CREATE  C*B.  BI*CI  &  BI*CI*GAMA - 

7180*  CALL  VMULFF  <C»B»PfNfM*PD»NDfUV»PD»IER) 

7190=  IF  (IER.EQ.129)  THEN 
7200=  IERR*39 

7210=  GO  TO  9004 

7220=  ENDIF 

7230=  LFN='C*B  MATRIX  PRINTOUT' 

7240=  CALL  OPR I NT  (LFN.4810) 

7250=  PRINT  ' ( /A/  )' »  '  C*B  MATRIX...' 

7260*  CALL  MATPR  <VVtP»M) 

7270=  810  CALL  INVERT  ( VVrZZ»P»PD»*835  ) 

7280=  CALL  VMULFF  ( ZZ»GAMA»M»P»P»MD»PD»UW»MD»IER  ) 

7290=  IF  (IER.EQ.129)  THEN 

7300=  IERR=39 

7310=  GO  TO  9004 

7320=  ENDIF 

7330=C - CREATE  KO  &  K1 - 

7340=  DO  815  1=1. M 

7350=  DO  815  J=1.P 

7360=  K0(  I.J  )=WW( I . J XALPHA4EPSL0N 

7370=  Kl( I.J  )*UU( I.J  )$EPSLON 

7380=  815  CONTINUE 

7390=  PRINT  '(/A)'.  '  KO  &  K1  MATRICES  FORMED' 

7400=C  - 

7410=  IFLAG( 14 )=1 

7420*  IPLANT-1 

7430*  METHOD*' R' 

7440*  GO  TO  8004 

7450*  835  IERR=32 
7460*  GO  TO  9004 

7470*  8004  IERR*0 

7480*  9004  IF  (IERR.NE.O)  METHOD*' X' 

7490*  END 


7500=c 
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75io*c 

7520*C  OPTION  #14  —  IRREGULAR  PLANTS 

7530*c 

7540*c 

7550*  OVERLAY  (5»0) 

7560*  PROGRAM  OPT 141 

7570*  REAL  K0.K1.MM 

7580*  INTEGER  P.PD 

7590=  CHARACTER  METHOD .LFN*30 

7600=  COMMON  /B  1  /  NOPT » 1ERR . I PLANT  . IFLAG( 40 ) 

7610=  COMMON  /B  2  /  N.M.P.ND.MD.PD 

7620=  COMMON  /B  4  /  A<  10.10). B<  10.10). C<  10.10) 

7630=  COMMON  /B  8  /  ALPHA. EPSLON.GAMA< 10.10  ) 

7640*  COMMON  /B  8A/  METHOD 

7650=  COMMON  /B  9  /  K0< 10. 10  ).K1< 10. 10  ) 

7660=  COMMON  /B  11  /  MM< 10*10) 

7670=  DIMENSION  VV< 10* 10  ).WU( 10*10 >*ZZ< 10. 10  )»VWZ< 10*10  ) 

7680=  DATA  VV.UW.ZZ.VWZ/400*0./ 

7690=C  - 

7700=  PRINT  '(A/)'.  '  THIS  OPTION  COMPUTES  KO  &  K1  FOR  IRREGULAR  PLANTS' 

7710=  DO  900  IERR=11 *  13 

7720=  900  IF  <IFLAG<  IERR). EQ.O)  GO  TO  9005 

7730=  DO  905  IERR=2,3 

7740=  905  IF  < IFLAG< IERR  ).EQ.O  )  GO  TO  9005 

7750=  IPLANT=1 

7760=  IF  ( N.EQ.M  )  THEN 

7770=  IERR=42 

7780=  GO  TO  9005 

7790=  ENDIF 

7800=C - INITIALIZE  MEASUREMENT  MATRIX - 

7810=  IF  ( IFLAG( 18).EQ.l )  THEN 

7820=  PRINT  *.  'ENTER  "1"  TO  REINITIALIZE  MEASUREMENT  MATRIX.  ELSE  E 

7830=  INTER  "0"  >' 

7840=  GO  TO  906 

7850=  ENDIF 

7860=  PRINT*.  'ENTER  "0"  IF  MEASUREMENT  MATRIX  EXISTS  IN  MEMORY' 

7870=  PRINT*.  'ENTER  -l"  TO  INITIALIZE  MATRIX  IN  THIS  OPTION..,)' 

7880=  906  READ*.  ISKIP 
7890=  IF  < ISKIP, EQ.O)  THEN 

7900=  IERR=18 

7910=  IF  <IFLAG<  IERR). EQ.O)  GO  TO  9005 

7920=  ENDIF 

7930=  IF  < ISKIP. EQ.l)  THEN 

7940=  PRINT*.  '  ' 

7950*  910  PRINT*.  'ENTER  M  MATRIX. ,.' .P.'  ROWS  WITH  '.N-M.'  COLUMNS' 

7960=  DO  915  1=1. P 

7970=  PRINT*.  'ROW  '.I.'  >' 

7980=  915  READ*.  ( MM(  I . J  ). J=1 .N-M ) 

7990=  PRINT  '(/A/)'.  '  MEASUREMENT  MATRIX...' 

8000*  CALL  MATPR  (MM.P.N-M) 
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8010s  CALL  ANSWER  <*910»*8005> 

8020s  IFLAG<18)=1 

8030s  END IF 

804 0SC - CREATE  CF1»F23  FROM  CC1+MA11  .C2+MA123 - 

8050s  DO  925  1*1  »P 

8060s  DO  925  JS1»N 

8070s  S=0. 

8080*  DO  920  K*1»N-M 
8090*  920  S=S+MM<I»K)*A(K»J) 

8100*  WU(  I  * J  )*C( I.J  )+S 

8110*  925  CONTINUE 

8120=  LFN*'F=CFlfF23  MATRIX' 

8130*  CALL  QPRINT  <LFN»*930) 

8140*  PRINT  '(/A/)'»  '  F=CF1»F23  MATRIX...' 

8150*  CALL  MATPR  (WW.P.N) 

8160=C - CREATE  F2>  F2I  i  F2I4GAMA - 

8170*  930  DO  935  1*1 .P 

8180*  DO  935  J=1»M 

8190*  935  ZZ( I » J  )=WW< I.N-M+J  ) 

8200*  CALL  INVERT  < ZZ.UU,P»PD»*990 ) 

8210*  CALL  VMULFF  ( UW.GAMA.M.P.P.MD.PD.ZZ.MD. IER ) 

8220*  IF  < IER. EQ. 129)  THEN 
8230*  IERR=39 

8240*  GO  TO  9005 

8250*  END IF 

8260=C - CREATE  B2.  B2I.  B2I*F2I*GAMA - 

8270*  DO  950  1*1 »M 

8280=  DO  950  J=1»M 

8290=  950  UU< I , J  )=B( N-M+I » J > 

8300=  CALL  INVERT  ( UW.VUZ.M.MDf *985  ) 

8310*  CALL  VMULFF  ( VWZ.ZZ»M>M>P»HD» MD»WW»MDfIER ) 

8320*  IF  < IER. EQ. 129 )  THEN 
8330=  IERR=39 

8340*  GO  TO  9005 

8350=  ENDIF 

8360=C - CREATE  KO  i  K1 - 

8370*  DO  965  1=1. P 

8380=  DO  965  J=1.P 

8390*  K0(  I . J  )=UW< I . J  )* ALPHA*EPSLON 

8400*  965  Kl(  I . J  )=UW< I . J )*EPSLON 

8410*  PRINT  '( /A )' .  '  KO  &  K1  MATRICES  FORMED' 

B420=C  - 

8430*  IFLAG( 14  )*1 
8440*  METHOD*' I' 

8450*  GO  TO  8005 
8460=  985  IERR*33 
8470*  GO  TO  9005 
8480*  990  IERR=34 
8490*  GO  TO  9005 


8510*  9005  IF  (IERR.NE.0)  METHOD*' X' 

8520*  END 

8530*c  ttinttmiMiimmlittmttntmtHMtmitmmitmmtittutKm 
8540*c  ********************************************************************** 
8550*C  OPTION  *18 

8560*c  ********************************************************************** 
857 o*c  ********* ************************************************************* 


8580*  OVERLAY  (6,0) 

8590=  PROGRAM  0PT18 

8600=  INTEGER  P,PD 

8610=  REAL  MM 

8620=  COMMON  /B  1  /  NQPT»IERR»IPLANT»IFLAG( 40  > 

8630=  COMMON  /B  2  /  N»M»P»ND»MD*PD 

8640=  COMMON  /B  4  /  A< 10»10)*B(  10»10)»C( 10,10) 

8650=  COMMON  /B  11  /  MM(  10,10) 

8660=  DIMENSION  VV< 10» 10  )»WU< 10, 10  ),ZZ( 10, 10  ),VWZ( 10, 10  ) 

8670*  DATA  VV, WW,ZZ'VUZ/400*0./ 

8680=C  - 

8690=  PRINT*,  'THIS  OPTION  CREATES  A  MEASUREMENT  MATRIX... OR' 

8700=  PRINT  '  (  A/  )' ,  '  PERFORMS  ROW  AND  COLUMN  OPTIONS  ON  A  MATRIX' 

8710=  PRINT*?  'ENTER  1  TO  CALCULATE  MEASUREMENT  MATRIX  FROM  C.E.S.A.  "K* 
8720=  *MATRIX' 

8730=  PRINT*'  'TYPE  2  TO  OPERATE  ON  C  *  B  ' 

8740=  PRINT*'  'TYPE  3  TO  OPERATE  ON  ANY  OTHER  MATRIX' 

8750=  READ*'  ISKIP 

8760=  PRINT*,  '  ' 

8770=C - CREATE  M  MATRIX  FROM  C.E.S.A.  INPUT - 

8780=  IF  (ISKIP. EQ.l)  THEN 

8790=  IF  (IFLAG(S).EQ.O)  THEN 

8800=  IERR=5 

8810=  GO  TO  9006 

8820=  ENDIF 

8830=  1000  PRINT*,  'ENTER  K1  MATRIX  FROM  CESA  OPTION  *38...' ,M,'  ROUS  UIT 
8840=  *H  '.N-M,'  COLUMNS' 

8850=  DO  1005  1=1 ,M 

8860=  PRINT*,  'ROW  'tit*  >' 

8870=  1005  READ*,  ( VUZ(I , J  )» J=1,N-M  ) 

8880=  CALL  MATPR  <VUZ'M'N-M> 

8890=  CALL  ANSWER  (*1000 ,*8006) 

8900=C - CREATE  Cl  &  C2 - 

8910=  DO  1015  1=1 ,P 

8920=  DO  1010  J=1 »N-M 

8930=  1010  MM(  I,J)=C<  I'J) 

8940=  DO  1015  J=1»M 

8950=  1015  WW( I , J  )=C(  I » N-M+ J  ) 

8960=C - CREATE  AMAT  =  C  Cl  -  C2  *  CESA  ] - 

8970=  DO  1025  1=1 »P 

8980=  DO  1025  J*1,N-M 

8990*  S*0. 

9000*  DO  1020  K*1'M 
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9010*  1020  S*WW<  1 »K )*VUZ< K»  J ) 

9020*  1025  ZZ<I»J)=MM(I»J>-S 

9030*C - CREATE  All  &  A12 - 

9040*  DO  1035  1=1. N-M 

9050*  DO  1030  J*1.N-M 

9060=  1030  MM( I » J  )=A(  1 » 0  > 

9070=  DO  1035  J*1.M 

9080=  1035  UW( I » J  )=A(  I » N-M+ J  ) 

9090=C - CREATE  BMAT  =  t  A12  *  CESA  -  All  3 - 

9100*  DO  1045  1=1. N-M 

9110=  DO  1045  J=1 »N-M 

9120=  S=0, 

9130=  DO  1040  K=1»M 

9140=  1040  S=WU<I»K)*VWZ<K.J) 

9150=  1045  VV< I . J  )=S-MM< I . J  ) 

9160*C - CREATE  MEASUREMENT  MATRIX - 

9170=  CALL  INVERT  ( VV.WW. N-M»ND.*1097  ) 

9180=  CALL  VMULFF  < ZZ.UU.P.N-M.N-M.PD.ND.MH.PD.IER ) 

9190=  IF  < IER.EQ.129  )  THEN 

9200*  IERR=39 

9210=  GO  TO  9006 

9220=  ENDIF 

9230=  IFLAG( 18  )=1 

9240=  PRINT  '(/A)'.  7  MEASUREMENT  MATRIX  FORMED' 

9250=  GO  TO  8006 

9260=C - CREATE  C  I  B - 

9270=  ELSEIF  (ISKIP.EQ.2)  THEN 

9280=  IF  ( IFLAG( 5  ).EQ.0 )  THEN 

9290*  IERR=5 

9300=  GO  TO  9006 

9310=  ENDIF 

9320=  DO  1055  1=1. P 

9330=  DO  1055  J=1»M 

9340=  S=0. 

9350=  DO  1050  K=1.N 

9360=  1050  S=S+C(I.K)*B<K.J) 

9370=  UU( I . J  )=S 

9380=  1055  CONTINUE 

9390=  PRINT  '(/A/)'.  '  C  *  B  MATRIX...' 

9400=  CALL  MATPR  (WH.P.M) 

9410=  II=P 

9420=  JJ=M  . 

9430=  GO  TO  1070 

9440*C - ENTER  OTHER  MATRIX - 

9450=  ELSEIF  (ISKIP.E0.3)  THEN 

9460=  PRINT*.  'ENTER  MATRIX" S  ♦  OF  ROMS  AND  *  OF  COLUMNS  >' 

9470=  READ*.  II.JJ 

9480=  1060  PRINT  '(/A)'.  '  ENTER  MATRIX. ..' .II.'  ROUS  WITH  '.JJ.'  COLUMNS 
9490=  *' 

9500=  DO  1065  1=1.11 
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9510*  PRINT**  'ROW  '*11*'  >' 

9520*  1065  READ**  ( WW< I  * J  )*J=1* JJ  ) 

9530*  PRINT*,  '(/A/)',  '  MATRIX  IS...' 

9540*  CALL  MATPR  <WW*II*JJ) 

9550*  CALL  ANSWER  (*1060**8006) 

9560*  END IF 

9570*C - ROW  L  COLUMN  OPERATIONS - 

9580*  1070  PRINT**  'TO  DO  COLUMN  AND  ROW  OPERATIONS  ON  MATRIX. ♦ ♦' 

9590-  1075  PRINT*,  '  ENTER  1  FOR  ROW  OPERATIONS' 

9600=  PRINT**  '  ENTER  2  FOR  COLUMN  OPERATIONS' 

9610=  PRINT**  '  ENTER  3  FOR  ROW  MULTIPLICATION' 

9620=  PRINT**  '  ENTER  4  FOR  COLUMN  MULTIPLICATION' 

9630=  PRINT**  '  ENTER  0  TO  EXIT  >  ' 

9640=  READ**  ISKIP 

9650=  PRINT**  '  ' 

9660=  IF  ( ISKIP. EQ.l)  THEN 

9670=  PRINT**  'ENTER  X*Y*Z  SUCH  THAT...' 

9680=  PRINT*,  '  ( X*ROW )  *  <  Y*FACTQR)  +  <Z*ROU>  =  (NEW  Z*ROW)' 

9690=  READ**  IR0W1*FACT*IR0U2 

9700=  DO  1080  J=1*JJ 

9710=  1080  WW( IR0W2* J  )=WW< IR0W2* J  HFACT*WU( IRQW1* J  ) 

9720=  ELSEIF  (ISKIP. EG. 2)  THEN 

9730=  PRINT*,  'ENTER  X*Y*Z  SUCH  THAT...' 

9740=  PRINT*,  '  (X, COLUMN)  *  ( Y* FACTOR )  +  (Z*COLUMN)  =  (NEW  Z*COL 

9750=  *UMN )' 

9760=  READ**  IR0W1 ,FACT , IR0W2 

9770=  DO  1085  1=1*11 

9780=  1085  WW( I  * IR0U2 )=WW(  I  * 1R0W2  )+FACT*UU( I  * IR0W1 )  • 

9790=  ELSEIF  (ISKIP.EQ.3)  THEN 

9800=  PRINT*,  'ENTER  X,Y  SUCH  THAT....' 

9810=  PRINT*,  '  (  X , ROW )  *  (  Y* FACTOR )  =  (NEW  X*ROW)' 

9820=  READ**  IROW,FACT 

9830=  DO  1090  J=1*JJ 

9840=  1090  WW( IROUrJ  )=FACT*WW< IROW* J  ) 

9850=  ELSEIF  (ISKIP.EQ.4)  THEN 

9860=  PRINT**  'ENTER  X*Y  SUCH  THAT..,.' 

9870=  PRINT**  '  ( X* COLUMN )  *  (Y, FACTOR)  =  (NEW  X*COLUMN)' 

9880=  READ*,  IROW* FACT 

9890=  DO  1095  1=1*11 

9900=  1095  WW< I  * IROW  )=FACT*WW( I  * IROW  ) 

9910=  ELSE 

9920=  GO  TO  8006 

9930=  ENDIF 

9940=  PRINT  '(/A/)'*  '  MATRIX  NOW  IS...' 

9950=  GO  TO  1075 

9960-C  - 

9970=  1097  IERR=35 


9980=  8006  IERR=0 
9990*  9006  CONTINUE 
10000*  END 
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• 

10010*0  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxx 
10020*0  xxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
10030*0  OPTIONS  *20  THRU  *29 

ioo*o*c  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxx 
10050*0  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxx 
10060*  OVERLAY  (7,0) 

10070*  PROGRAM  0PT20 

10080*  CHARACTER  STRINGX10, METHOD, ACT, SEN, DMATRX,LFNX30 

10090*  REAL  K0,K1,MM,MMAX 

10100*  INTEGER  P,PD,DATC 

10110*  EXTERNAL  CLPASS 

10120=  COMMON  /B  1  /  N0PT»1ERR»IPLANT»IFLAG( 40 ) 

10130*  COMMON  /B  2  /  N,M,P,ND,MD,PD 

10140=  COMMON  /B  4  /  A< 10,10  ),B(  10,10), C(  10,10  ) 

10150*  COMMON  /B  5  /  D< 10,10) 

10160*  COMMON  /B  6  /  DMATRX , ACT , SEN 

10170*  COMMON  /B  7A/  NA< 10  ),AA(  10,2,2  ),BA( 10,2  ),CA(  10,2 ) 

10180*  COMMON  /B  75/  NS(  10  ),AS< 10,2,2  ),BS( 10,2  ),CS(  10,2  ) 

10190=  COMMON  /B  8A/  METHOD 

10200*  COMMON  /B  9  /  K0< 10,10), Kl(  10,10  ) 

10210*  COMMON  /B  10  /  NG,GN(10) 

10220=  COMMON  /B  11  /  MM(10,10) 

10230=  COMMON  /B  12  /  W< 10 )»Q< 10 ),U(  10 ), YM< 10 ) 

10240*  COMMON  /B  12A/  X0(  10),Z0( 10  ),V( 10  ) 

10250=  COMMON  /B  12B/  ST,TT 

10260*  COMMON  /B  13  /  NT,YP(  100,11 ,2 ) 

10270=  COMMON  /B  13A/  UP( 100,11,2) 

10280*  COMMON  /B  13B/  ILIM,IMIN(  10  ),IMAX(  10  ),UMIN(  10 ),UMAX( 10 ) 

10290=  DIMENSION  CM< 10,10),F( 10,10  ) 

10300=  DIMENSION  IWORK( 5  ),W0RK(1150  ) 

10310=  DIMENSION  X(50),Z(10) 

10320=  DIMENSION  Y< 10 ),E(10 ),AX(  10 ),MMAX< 10 ) 

10330-  DATA  STRING/'  123-;  *47890'  / 

10340=  DATA  CM,F/200X0./ 

10350=  DATA  IWORK, AX, MMAX,W0RK/5X0, 1170X0./ 

10360=  DATA  X,Y,Z,E/80X0./ 

10370*C  — - 

10380*  IERR=2 

10390=  DO  1101  1*1, P 

10400*  DO  1101  J*1,N 

10410*  1101  CM(  I, J  )=C( I»J  ) 

10420=  DO  1102  1*1, P 

10430*  DO  1102  J=1,P 

10440*  F( I,J  )=0*0 

10450=  1102  IF  (I.EQ.vl)  F(I,J)*1.0 
10460=  NOK=N0PT-20 

10470*  GO  TO  (2021,2022,2023,2024,2025,2026,2027,2028,2029)  NOPT 

10480=C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
10490*C  OPTION  020 

10500=  PRINTX,  'SIMULATION  OPTIONS! ' 
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wsrtnfr* - 


10510* 

PRINT*? 

* 

20. 

LIST  OPTIONS  20  THRU  29' 

10520= 

PRINT*? 

» 

21. 

SET  STATE  &  INTEGRATOR  INITIAL 

VALUES?  X(0)  &  Z< 

10530= 

*0)' 

10540= 

PRINT*? 

/ 

22. 

SET  INPUT  COMMAND  VECTOR?  V' 

10550= 

PRINT*? 

/ 

23. 

ENTER  SAMPLE  TIMES' 

10560= 

PRINT*? 

/ 

24. 

ENTER  SIMULATION  TIME' 

10570= 

PRINT*? 

t 

25. 

ENTER  CALCULATION  STEP  SIZE' 

10580= 

PRINT*? 

/ 

26. 

RUN  SIMULATION' 

10590= 

PRINT*? 

t 

27. 

SET  CONTROL  INPUT  LIMITS' 

10600= 

PRINT*? 

t 

28, 

OPTION  RESERVED' 

10610= 

PRINT*? 

/ 

29. 

COPY  SIMULATION  PARAMETERS  FROM 

LOCAL  FILE' 

10620= 

GO  TO  8007 

i0630=c  ********************************************************************** 

10640=C  OPTION  #21 

10650=  2021  PRINT*?  'THIS  OPTION  SETS  THE  INITIAL  CONDITION  VECTORS  FOR  THE  ST 
10660=  *ATES  &  INTEGRATORS' 

10670=  PRINT*?  '  ' 

10680=  IF  (IFLAG(IERR).EQ.O)  GO  TO  9007 

10690=  PRINT*?  'ENTER  THE  X< 0 )  VECTOR  OF  '?N?'  ELEMENTS' 

10700=  PRINT*?  '>' 

10710=  READ*?  <  X0( I )? 1=1 ?N ) 

10720=  PRINT*?  '  ' 

10730=  PRINT*?  'ENTER  THE  2(0)  VECTOR  OF  '?P?'  ELEMENTS' 

10740=  PRINT*?  '>' 

10750=  READ*?  ( Z0< I )? 1  =  1 ?P  ) 

10760=  IFLAG( 21  )=1 

10770=  GO  TO  8007 

10780=C  ********************************************************************** 

10790=C  OPTION  *22 

10800=  2022  PRINT  '(A/)'?  '  THIS  OPTION  SETS  THE  INPUT  COMMAND  VECTOR?  V' 

10810=  IF  ( IFLAG< IERR  ) . ED . 0  )  GO  TO  9007 

10820=  PRINT*?  'ENTER  THE  V  VECTOR  OF  '?P?'  ELEMENTS' 

10830=  PRINT*?  '-V"  COLUMN  >' 

10840=  READ*?  (V(I)?I  =  1?P) 

10850=  IFLAGC  22  )=1 

10860=  GO  TO  8007 

10870=C  *************************************X**************X***************** 
10880=C  OPTION  *23 

10890=  2023  PRINT*?  'THIS  OPTION  SETS  THE  SAMPLING  TIME  FOR  EACH  RUN' 

10900=  PRINT*?  '  ' 

10910=  PRINT*?  'ENTER  NUMBER  (MAX  OF  2 )  OF  SAMPLING  TIMES  >' 

10920=  READ*?  NG 

10930=  PRINT*?  'ENTER  ' ?NG? '  SAMPLING  TIME(S)  >' 

10940=  READ*?  < GN< I  )?I  =  1?NG) 

10950=  IFLAG( 23  )=1 

10960=  GO  TO  8007 

10970=C  ********************************************************************** 

10980=C  OPTION  #24 

10990=  2024  PRINT*?  'THIS  OPTION  SETS  THE  TOTAL  SIMULATION  TIME' 

11000=  PRINT  '(/A)'?  '  ENTER  TOTAL  TIME  >' 


lit,  READ*,  TT 

I-..  IFLAG(  24  )=1 

;l  ;.  '  GO  TO  8007 

.  ,:.,**:****************************************************************** 

iJ.O:  •.  OPTION  #25 

.10..  2025  PRINT*,  'THIS  OPTION  SETS  THE  CALCULATION  STEP  SIZE' 

'.107  PRINT  '(/A)'.  '  ENTER  STEP  SIZE  >' 

10.  REAM,  ST 

\.<y.  •  IFLAG(  25  )=1 

GO  TO  8007 

********************************************************************** 

.Ui2v”C  OPTION  *26 


11130=  2026  PRINT*,  'THIS  OPTION  RUNS  THE  SIMULATION  IF  ALL  DATA  IS  AVAILABLE' 
11140=  PRINT*,  '  ' 

■  11150=  IF  ( ACT.EQ,' N'  )  PRINT*,  'SIMULATION  INCLUDES  NO  ACTUATORS' 

11160=  IF  ( SEN.EQ.'N'  )  PRINT*,  'SIMULATION  INCLUDES  NO  SENSORS 

11170=  IERR=14 

11180=  IF  (IFLAG(IERR).EQ.l)  GO  TO  1105 

11190=  GO  TO  9007 

11200=  1105  IF  (IPLANT.NE.l)  THEN 

11210=  DO  1107  IERR=2»3 

11220=  1107  IF  ( IFLAG(  IERR).EQ.O)  GO  TO  9007 

11230=  ENDIF 

11240=  DO  1110  1ERR=21 ,25 

11250=  1110  IF  ( IFLAG< IERR).EQ.O)  GO  TO  9007 

11260=  IF  ( ILIM.EQ.O )  PRINT*,  'SIMULATION  INCLUDES  NO  CONTROL  LIMITS' 

11270=C - TOTAL  #  OF  STATES - 

11280=  N0=0 

11290=  DO  1125  1=1, P 

11300=  1125  NO=NO+NS< I ) 

11310=  DO  1130  1=1, M 

11320=  1130  NO=NO+NA< I ) 

11330=  NN=N+NO 

11340=C - LOOP  FOR  EACH  SAMPLE  TIME - 

11350=  DO  1285  IG=1,NG 

11360=C - INITIALIZATIONS - 

11370=  S=0. 

11380=  T=0. 

11390=  DO  1135  1=1, M 

11400=  Z<I)=ZO<I) 

11410=  U(I)=0. 

11420=  1135  U< I  )=0. 

11430=  DO  1140  1*1, P 

11440=  1140  Q( I  )=0. 

11450=  DO  1145  1=1, N 

11460=  1145  X<I)=XO<I> 

11470=  DO  1150  1=1, NO 

11480=  1150  X(I+N)=0. 

11490=  PRINT*,  '  ' 

11500=  SAMT=GN(  IG ) 


11510*  PRINT**  '  ' 

11520*  PRINT**  'RUN  TIME*'. TT*'  STEP  TIME*' *ST*'  SAMPLE  TIME*' »SAMT 
11530=  PRINT**  '  ' 

11540*  NIN=INT<  TT/SAMT+.5 ) 

11550*  NTT=INT( SAMT/ST+.5 ) 

11560*  IF  <  SAMT ,LT .ST )  NTT=1 

11570*  NT=NIN*NTT 

11580=C - SELECT  SEQUENTIAL  LIST  PRINTING - 

11590=  PRINT**  'THERE  ARE  ' *NT*'  TIME  INCREMENTS' 

11600=  PRINT**  '  ENTER  M0"  TO  SKIP  SEQUENTIAL  LISTING' 

11610*  PRINT**  '  ENTER  "1*  TO  OBTAIN  THIS  DATA...>' 

11620=  READ**  ISKIP 

11630=  IF  (ISKIP, EQ.O)  PRINT  '(/A)'*  '  - CALCULATIONS  IN  PROGRESS - ' 

11640=  PRINT**  '  ' 

11650=C - CHECK  FOR  NEED  TO  PACK  DATA  INTO  100  ELEMENTS - 

11660=  IPACK=1 

11670*  IF  (NT.GT.100)  THEN 

11680=  PACK=MOD<  NT  *  100 ) 

11690=  IF  (  PACK. LE, 0.25)  THEN 

11700=  IPACK=INT< NT/100) 

11710=  ELSE 

11720=  IPACK=(INT(  NT/100  HI) 

11730=  ENDIr 

11740=  END IF 

11750=C - LOOP  FOR  EACH  SAMPLING  PERIOD - — 

11760*  DO  1250  KT=1*NIN 

11770=C - - FORM  Y  MEASUREMENT  VECTOR - 

11780=  DO  1160  I=1*P 

11790=  S=0. 

11800=  DO  1155  J=1*N 

11810=  1155  S=S+CM( I  * J  )*X(  J  ) 

11820=  YM(  I  )=S 

11830=  1160  CONTINUE 

11840=C - O.D.E.  ROUTINE  PRECISION - 

11850=  RELERR=1 .OE-4 

11860*  ABSERR=1 .OE-4 

1 1870=C - FORM  ERROR  VECTOR - 

11880=  IF  (METHOD. EQ.' I'  )  THEN 

11890=  DO  1170  1=1 *N-M 

11900=  S=0. 

11910=  DO  1165  J=1*N 

11920=  1165  S=S+A( I*J  )*X(  J  ) 

11930=  1170  AX< I  )=S 

11940=  DO  1185  I*1*P 

11950=  S*0. 

11960*  DO  1175  K=1 *N-M 

11970=  1175  S*S+MM< I *K )*AX<  K  ) 

11980*  MMAX( I  )=S 

11990*  S*0. 

12000*  DO  1180  J=1*P 


169 


12010=  1180  S=S+F( I » J  )4G<  J  ' 

12020=  1185  E< I  )=V< I  )-S-MMAX< 1 > 

12030=  ELSE 

12040=  DO  1195  1=1 »P 

12050=  S=0. 

12060=  DO  1190  J=1»P 

12070=  1190  S=S+F< If J )*Q<  J  ) 

12080=  1195  E( I  )=V( I  )-S 

12090=  ENDIF 

12100=C - FORM  CONTROL  :  - - 

12110=  DO  1205  1=1  »M 

12120=  S=0. 

12130=  DO  1200  J=lfP 

12140=  S=S+KO( I » J  )*E( J  ) 

12150=  1200  S=S+K1<I,J)*Z<  J) 

12160=  IF  < METHOD. NE. ' U' )  THEN 

12170=  U< I  )=S/SAMT 

12180=  ELSE 

12190=  U( I  )=S*SAMT 

12200=  ENDIF 

12210=  1205  CONTINUE 

12220=C - CHECK  AGAINST  CONTROL  LIMIT  VALUE - 

12230=  IF  ( ISKIP.NE. 1 )  GO  TO  1210 
12240=  PRINTS  '  T=',T 

12250=  IF  ( ILIM.EQ.O)  GO  TO  1210 

12260=  PRINT  4065 f  f(U(I  )>I=1>M) 

12270=  1210  DO  1215  I=1»M 

12280=  IF  (U(I).LT.UMIN(I))  THEN 

12290=  U( I  )=UMIN< I ) 

12300=  IMIN( I  )=IMIN( I  )+l 

12310=  ELSEIF  ( U( I  ).GT.UMAX< I ) )  THEN 

12320=  U( I  )=UMAX( I ) 

12330=  IMAX( I  )=IMAX< I  )+l 

12340=  ENDIF 

12350=  1215  CONTINUE 

12360=C - FORM  INITIAL  OUTPUT  VALUE - 

12370=  CALL  YOUT  <X»Y,W»C»D) 

12380=C - INNER  LOOP  BASED  ON  STEP  TIME - 

12390=  DO  1240  JJ=1»NTT 

12400=C  - SET  INDEX  FOR  INPUT/OUTPUT  DATA  MATRIX 

12410=  IJ=JJ+(KT-1)*NTT 

12420=  PACK=REAL( IPACK  ) 

12430=  RIJ=REAL( I J  ) 

12440=  IF  (  RIJ/PACK.NE.REAL< INT(  IJ/IPACK  ) ) )  THEN 

12450=  GO  TO  1230 

12460=  ELSE 

12470*  IJ=I J/IPACK 

12480=  ENDIF 

12490=  YP(IJ.1»IG)=T 

12500=  UP( IJ»1»IG)=T 
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12510=  DO  1220  1=1. P 

12520=  YP(  IJ,1+I,IG)=Y( I ) 

12530=  1220  CONTINUE 
12540=  DO  1225  1=1. H 
12550=  UP< IJ»1+I»IG)=U< I ) 

12560=  1225  CONTINUE 

12570=  1230  TOUT=T+ST 

12580=  IF  (SAMT.LT.ST)  TOUT=T+SAMT 

12590=  IF  (ISKIP.NE.l)  GO  TO  1235 

12600=  PRINT  4065.  '  U' ,( U<  K  )»K=1»H  ) 

12610=  PRINT  4065,  'Y' ,( Y< J  ),J=1,P  ) 

12620=  PRINT*.  '  ' 

12630=  1235  IFLAGG=1 

12640=C - SOLVE  DIFFERENTIAL  EQUATIONS - 

12650=  CALL  ODE  <  CLPASS,NN»X,T»TOUT .RELERR.ABSERR. I FLAGG .WORK, I WORK  ) 

12660=  IF  ( IFLAGG.NE.2 )  GO  TO  1290 

12670=C - FORM  NEW  OUTPUT  VECTOR - 

12680=  CALL  YOUT  (X.YfW.C.D) 

12690=  IF  (ISKIP.NE.l)  GO  TO  1240 

12700=  IF  (JJ.LT.NTT)  PRINT*.  '  T=' »T 

12710=  1240  CONTINUE 

12720=C - EXIT  COMPUTATIONS - 

12730=  DO  1245  1=1. P 

12740=  1245  Z< I  )=Z< I  )+SAMT*E( I ) 

12750=  1250  CONTINUE 

12760=  IF  (ISKIP.NE.l)  GO  TO  1255 

12770=  PRINT*.  '  T='»T 

12780=  IF  (ILIM.NE.O)  PRINT  4065.  ' *' .( U( K  ),K=1,M  ) 

12790=  PRINT  4065,  '  U' »(  U<  K  ),K=1,M  ) 

12800=  PRINT  4065,  '  Y'  ,(  Y(  J  )» J=1»P ) 

12810=  1255  IFLAG( 26  )=1 

12820=C - PRINT  WHEN  CONTROL  LIMITS  ARE  SET - 

12830=  IF  (ILIM.NE.l)  GO  TO  1265 

12840=  PRINT  '(/A)',  '  ENTER  "0"  TO  SKIP  CONTROL  LIMITS  INFORMATION' 

12850=  PRINT*,  'ENTER  •l"  TO  OBTAIN  THIS  DATA...>' 

12860=  READ*,  ISKIP 

12870=  PRINT*.  '  ' 

12880=  IF  (ISKIP.NE.l)  GO  TO  1265 

12890=  DO  1260  1=1, M 

12900=  PRINT*.  '  ' 

12910=  PRINT*,  'CONTROL  #',I 


12920=  PRINT*,  '  HIT  THE  MINIMUM  STOP  ',IMIN(I)»'  TIMES  IN  THE  '.NT,' 

12930=  *  SAMPLING  POINTS' 

12940=  PRINT*,  '  HIT  THE  MAXIMUM  STOP  ',IMAX(D,'  TIMES  IN  THE  '  »NT , ' 

12950=  *  SAMPLING  POINTS' 

12960=  1260  CONTINUE 

12970=C  - SET  NT  VALUE  EQUAL  TO  PACKING  SIZE - 


12980=  1265  NT=INT( NT/IPACK  ) 

12990=  PRINT*,  '  ' 

130r  J=  PRINT*,  'SIMULATION  FOR  SAMPLING  TIME  #',IG,'  COMPLETE' 
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13010*  PRINT*,  '  ' 

13020=  1285  CONTINUE 
13030=  GO  TO  8007 


13040=C  ********************************************************************** 

13050=C  OPTION  *27 

13060=  2027  PRINT*,  'THIS  OPTION  ENTER  INPUT  CONTROL  LIMITATIONS' 


13070=  PRINT  '(/A)',  '  ENTER  LIMITS  ON  CONTROL  INPUTS  BY  GIVING  THE  INPUT 
13080=  *  NUMBER' 

13090=  PRINT*,  '  FOLLOWED  BY  ITS  MIN  AND  MAX  VALUES' 

13100=  PRINT*,  'ENTER  "O-  IF  NO  LIMITS  ARE  IMPOSED' 

13110=  PRINT*,  'ENTER  m99m  WHEN  ALL  LIMITS  HAVE  BEEN  ENTERED' 

13120=  1286  PRINT*,  'CONTROL  INPUT  >  *' 

13130=  READ*,  ILIM 

13140=  IF  (ILIM.EQ.99)  THEN 

13150=  PRINT*,  'ALL  LIMITS  HAVE  BEEN  ENTERED' 

13160=  IFLAG<  27  )=1 

13170=  GO  TO  8007 

13180=C - ELIMINATE  CONTROL  LIMITS - 

13190=  ELSEIF  (ILIM.EQ.O)  THEN 

13200=  DO  1287  1=1,10 

13210=  UMIN(1)=-1.E10 

13220=  1287  UMAX( I  )=1 *E10 

13230=  IFLAG<  28  )=0 

13240=  PRINT*,  'LIMITATIONS  ARE  ELIMINATED' 

13250=  GO  TO  8007 

13260=C  - SET  CONTROL  LIMITS - 

13270=  ELSE 

13280=  PRINT*,  'MINIMUM  VALUE  >' 

13290=  READ*,  UMINULIM) 

13300=  PRINT*,  'MAXIMUM  VALUE  >' 

13310=  READ*,  UMAX(ILIM) 

13320=  PRINT*,  '  ' 

13330=  GO  TO  1286 

13340=  ENDIF 

13350=  GO  TO  8007 


13360=C  ********************************************************************** 

13370=C  OPTION  #28 
13380=  2028  IERR=44 
13390=  N0PT=N0PT+20 

13400=  GO  TO  9007 

13410=C  ********************************************************************** 

13420=C  OPTION  #29 

13430=  2029  PRINT*,  'THIS  OPTION  READS  SIMULATION  PARAMETERS  FROM  A  LOCAL  DATA 
13440=  *  FILE' 

13450=  IF  ( IFLAG< IERR  ).EQ.O  )  GO  TO  9007 

13460=  1288  PRINT  '</A)',  '  ENTER  LOCAL  FILE  NAME  THAT  HOLDS  SIMULATION  DATA' 
13470=  PRINT*,  '  >' 

13480=  READ  '<A>'»  LFN 

13490=  PRINT*,  'LOCAL  FILE  NAME  IS  >' ,LFN 

13500=  CALL  ANSWER  (  *1288, *8007 ) 
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13510=  DATC=40 

13520=  OPEN  (DATC»FILE=LFN) 

13530=  REWIND  DATE 

13540=  READ  (DATC»*>  (  XO( I  )»I=1»N ) 

13550=  READ  (DATC»*>  (  Z0(  I )» 1=1 »P ) 

13560=  READ  (DATCt*)  (V(I)»1=1»P) 

13570=  READ  (DATC>«)  NGf(GN< I >»I=1»NG) 

13580=  READ  (DATC>«)  TT 

13590=  READ  ( DATC>*  )  ST 

13600=  PRINT*!  'DATA  COPY  COMPLETE  FOR  OPTIONS' 

13610=  PRINT**  ' #21 »  #22f  *23!  #24!  #25' 

13620=  DO  1289  lERR=2l!25 

13630=  1289  IFLAG( IERR  )=1 

13640=  CLOSE  (DATC!STATUS=' KEEP' ) 

13650=  GO  TO  8007 

13660=C  ********************************************************************** 
13670=C  ********************************************************************** 
13680=C  FORMAT  STATEMENTS 

13690=C  ********************************************************************** 

13700=  4060  FORMAT  < 3X!lO< 1E10.4!3X  ) ) 

13710=  4065  FORMAT  < 1X!A!1X!10< 1E10.4!3X > ) 

13720*C  - 

13730=  1290  PRINT*!  ' I FLAGG  HAS  BEEN  SET  AT  ' t IFLAGG 

13740=  PRINT*.  'REFER  TO  O.D.E  MANUAL  FOR  ERROR  CODE  LISTING' 

13750=  8007  IERR=0 
13760=  9007  CONTINUE 
13770=  END 

13780=C  ********************************************************************** 
13790=C  ********************************************************************** 

13800=C  THIS  SUBROUTINE  FORMS  THE  DIFFERENTIAL  EQUATIONS 
13810=  SUBROUTINE  CLPASS<  T.X^DOT  ) 

13820=  DIMENSION  X< 50  )!XDOT( 40 ) 

13830=  INTEGER  p!PD 

13840=  COMMON  /B  2  /  N!M!p!NB!HD!PB 

13850=  COMMON  /B  4  /  A(10! 10  ).B< 10! 10 >!C< 10! 10 ) 

13860=  COMMON  /B  7A/  NA< 10  )iAA(  10! 2! 2  ).BA( 10.2  >!CA( 10.2  ) 

13870=  COMMON  /B  7S/  NS(  10 >!AS< 10!2.2 >!BS( 10!2 >!CS<  10!2  ) 

13880=  COMMON  /B  12  /  W<  10  hCK  10  bU<  10  ).YM(  10 ) 

13890=  L=N 

13900=  DO  1300  1=1 !p 

13910=  S=0. 

13920=  DO  1295  J=l!NA( I ) 

13930=  L=L+1 

13940=  1295  S=S+CA< I. J  )*X(  L  ) 

13950=  1300  W< I >=S 
13960=  DO  1310  I=l!P 

13970=  S=0. 

13980=  DO  1305  J=l!NS< I) 

13990=  L=L+1 

14000*  1305  S*S4CS(l!J)*X(L) 
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14010*  1310  Q< I >*S 
14020*  DO  1325  1*1 tN 
14030*  S*0. 

14040*  DO  1315  J*1'N 
14050*  1315  S=S+A< I>  J  )*X<  J  ) 

14060*  DO  1320  J*1»P 
14070*  1320  S=S+B<I»J)*W<J) 

14080*  1325  XDOT( I  )*S 
14090*  L=N 
14100*  LI*N 
14110*  DO  1340  I*1»P 

14120*  DO  1335  J=lfNA<I) 

14130*  L=L+1 

14H0*  S*BA(  I  f  J  )*U<  I ) 

14150*  DO  1330  K=1»NA< I ) 

14160*  1330  S=S+AA<IfJ»K)*X(Ll+K> 

14170*  1335  XDOT( L  )*S 
14180*  1340  LI*LI+NA(  I ) 

14190*  DO  1355  1*1 *P 

14200*  DO  1350  J*1»NS(I> 

14210*  L=L+1 

14220*  S=BS( I» J  )*YM(  I ) 

14230*  DO  1345  K=1.NS<I) 

14240=  1345  S=S+AS(I,J,K)*X<LI+K) 

14250*  1350  XDOT( L  )=S 
14260=  1355  LI=LI+NS( I ) 

14270*  RETURN 
14280*  END 

14290=C  *ttt***ttt**tttt*t*tt**ttt****tt***%***tttU*tMt***U1lt*ttt****tt**%t 
i4300*c  ****w***ntmx********iit****m*ii[**«*#ii!ii!**************4m****m***« 

14310*C  THIS  SUBROUTINE  CALCULATES  THE  OUTPUT  VALUES 
14320*  SUBROUTINE  YOUT  (X»Y»W»C»D) 

14330*  INTEGER  P.PD 

14340*  COMMON  /B  2  /  N»M»P»ND»MDf PD 

14350*  DIMENSION  X(  50 )f Y(  10  )» M< 10 )»C( 10» 10  )»D( 10» 10  ) 

14360*  S=0, 

14370*  DO  1375  1*1 »P 

14380*  DO  1365  J=1»N 

14390*  1365  S=S+C< If J  )*X(  J  ) 

14400*  DO  1370  K*1»M 
14410*  1370  S=S+D< I»K  )tW(  K  ) 

14420*  Y(  I  )*S 

14430*  S*0* 

14440*  1375  CONTINUE 
14450*  RETURN 
14460*  END 

i447o*c 
14480*C 

14490=C  OPTIONS  *30  THRU  *39 
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i4t)iosC 

14520=  OVERLAY  ( 10,0) 

14530=  PROGRAM  OPTPLT 

14540=  CHARACTER  CHOICE** 

14550=  COMHON  /B  1  /  NOPT » IERR, IPLANT » IFLAG( 40 ) 

14560=  COMHON  /B  12B/  ST,TT 

14570=  COMMON  /B  13  /  N,Y< 100,11,2 > 

14580=  COMMON  /B  13A/  U( 100,11,2) 

14590=  COMMON  /B  14  /  ICODE,NUM,ICOLMN< 4  ),PLHAT( 102,4 > 

14600=  COMMON  /B  14A/  CHOICE 

14610=  COMMON  /B  15  /  ICLM,NPAIRS»NDEPTH»IDEPTH<  2 ) 

14620=  COMMON  /B  16  /  IENTRY, IFLTCN, LINES 

14630=  COMMON  /B  17  /  IPLOT 

14640=  DIMENSION  XAXIS< 102  ),YAXIS< 102  ) 

14650=  DATA  XAXIStYAXIS/204*0 ./ 

14660=C  - - - 

14670=  IF  ( NOPT. EQ. 33 )  THEN 

14680=  IF  (IFLAG<31).EQ.O.AND.IFLAG<32>.EQ.O)  GO  TO  1525 

14690=  ENDIF 

14700=  IF  ( NOPT. EQ <36 )  THEN 

14710=  IF  (IFLAG(34).E0.0.AND,IFLAG(35).EQ.0)  GO  TO  1525 

14720=  ENDIF 

14730=  IERR=26 

14740=  IENTRY=IENTRY+1 

14750=  IFLAG(  NOF'T  )=1 

14760=  NOPT=NOPT-30 

14770=  GO  TO  <2031,2031,2031,2031,2031,2031,2037,2038,2039)  NOPT 

14780=C  ********************************************************************** 
14790=C  OPTION  #30 


14800= 

PRINT*, 

'PLOTTING 

options:' 

14810= 

PRINT*, 

t 

30, 

LIST  OPTIONS  30  THRU  39' 

14820= 

PRINT*. 

/ 

31, 

QUICK  SKETCH  AT  U5ER"S  TERMINAL' 

14830= 

PRINT*, 

/ 

32. 

QUICK  SKETCH— SHORT  VERSION' 

14840= 

PRINT*, 

/ 

33. 

QUICK  SKETCH— RETAINING  SAME 

PLOTTING  CHOICES' 

14850= 

PRINT*, 

/ 

34, 

CALCOMP  PLOT' 

14860= 

PRINT*, 

/ 

35. 

CALCOMP  PLOT— SHORT  VERSION' 

14870= 

PRINT*, 

/ 

36. 

CALCOMP  PLOT— RETAINING  SAME 

PLOTTING  CHOICES' 

14880= 

PRINT*, 

/ 

37, 

OPTION  RESERVED' 

14890= 

PRINT*, 

/ 

38. 

OPTION  RESERVED' 

14900= 

PRINT*, 

t 

39. 

OPTION  RESERVED' 

14910= 

GO  TO  8010 

14920=C  ********************************************************************** 
14930=C  OPTIONS  *31  THRU  #36 

14940=  2031  IF  ( N0PT.GE.4.AND.N0PT.LE.6 )  GO  TO  1400 

14950=  PRINT  '( A/)' f  '  THIS  OPTION  PRODUCES  A  PLOT  AT  YOUR  TERMINAL' 

14960=  IF  ( IFLAG(  IERR  ) . EQ . 0  )  GO  TO  9010 

14970=  GO  TO  1405 

14980=  1400  PRINT  '(A/)',  '  THIS  OPTION  PRODUCES  A  CALCOMP  PLOT' 

14990=  IF  (IFLAG(IERR).EQ.O)  GO  TO  9010 

15000=C - CHECK  FOR  MULTIPLE  FLIGHT  CONDITIONS - 
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15010=  1405  IF  < I CODE .NE.3 )  GO  TO  1410 


15020=  PRINT*,  '  ' 

15030=  PRINT**  '  — - - - - 

15040=  * - ' 

15050=  PRINT**  'YOU  CHOSE  TO  OBTAIN  A  MULTIPLE  PLOT  FOR  DIFFERENT  FLIGHT 
15060=  *CONDITIONS' 

15070=  PRINT**  '  ON  THE  LAST  ENTRY  TO  THIS  OPTION' 

15080=  IF  ( IFLTCN.EQ. 1 )  THEN 

15090=  PRINT*.  '  THE  PLOT  DATA  IS  NOW  COMPLETE  WITH  THIS  SIMULATION 

15100=  *  DATA  ENTRY' 

15110=  PRINT*.  ' - - - 

15120=  * - ' 

15130=  PRINT*.  '  ' 

15140=  ENDIF 

15150=  GO  TO  1460 

15160=C - SET  DATA  FOR  SHORT  VERSION  PLOT - 


15170=  1410  IF  (N0PT.EQ.3.0R.N0PT.E0.6)  GO  TO  1460 


15180=  IF  (N0PT.EQ.2.0R.N0PT.EQ.5)  THEN 

15190=  PRINT*.  'ENTER  SHORT  VERSION  CHOICE. .. 1 .2.3.4 .. .>' 

15200=  READ*.  ICODE 

15210=  NPAIRS=1 

15220=  IF  < ICODE. NE. 4)  NDEPTH=1 

15230=  IF  < ICODE. EQ.l )  THEN 


15240= 

15250= 

15260= 

15270= 

15280= 

15290= 

15300= 

15310= 

15320= 

15330= 

15340= 

15350= 

15360= 

15370= 

15380= 

15390= 

15400= 

15410= 

15420= 

15430= 

15440= 

15450= 

15460= 

15470= 

15480= 

15490* 

15500= 


CHOICE*'  ONE' 

NUM=NFAIRS*2 

ELSE 

PRINT*,  'ENTER... INPUT, OUTPUT... >' 

READ  '(A)',  CHOICE 

IF  ( CHOICE. EQ.' INPUT  ')  CHOICE*'  INPUT' 
ENDIF 

IF  < ICODE. EQ.l. AND.NOPT.EO. 5)  THEN 

PRINT*,  'ENTER  NUMBER  OF  PAIRS... >' 
READ*,  NPAIRS 
ENDIF 

PRINT*,  'ENTER  PROPER  PLOT  DATA...>' 

IF  < ICODE. EQ.l)  THEN 
NUM=NPA1RS*2 
ICLM=NPAIRS 

READ*,  IDEF'TH<  1 ),( ICDLMN<  I  >,I=1,NUM  ) 
ELSEIF  ( ICODE. EQ. 2  )  THEN 

READ*,  IDEPTH< 1 >,NUM,< ICOLMN< I  ),I=1,NUM  ) 
ICLM=NUM 

ELSEIF  ( ICODE. EQ. 3  )  THEN 
NUM=1 
ICLM=NUM 

READ*,  IFLTCN.IDEPTW 1  ),ICOLMN< 1 ) 
LINES=IFLTCN 
ELSEIF  ( IC0DE.EQ.4 )  THEN 
NUM=1 
ICLM=NUM 
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15510=  READ**  NDEPTH.(IDEPTH(I)’I=1»NDEPTH)’IC0LMN<1) 

15520=  GO  TO  1420 

15530=  ENDIF 

15540=  GO  TO  1460 

15550=  ENDIF 

15560=C - SET  ICODE - 

15570=  PRINT*’  ' PLEASE  CHOOSE  ONE  OF  THE  FOLLOWING 5' 

15580=  PRINT*’  '  ' 

15590=  PRINT*’  'FOR  A  SINGLE  SAMPLING  TIME' 

15600=  PRINT*’  '  1...A  PLOT  OF  UP  TO  2  INPUT  AND  OUTPUT  PAIRS' 

15610=  PRINT*’  '  2... A  PLOT  OF  UP  TO  4  INPUTS  OR  OUTPUTS' 

15620=  PRINT*’  '  3... A  PLOT  OF  UP  TO  4  DIFFERENT  SIMULATIONS' 

15630=  PRINT*.  '  <  FOR  ANY  SINGLE  INPUT  OR  OUTPUT)' 

15640=  PRINT*’  '  ' 

15650=  PRINT**  'OR  FOR  UP  TO  4  DIFFERENT  SAMPLING  TIMES' 

15660=  PRINT*’  '  4... A  PLOT  OF  ANY  SINGLE  INPUT  OR  OUTPUT' 

15670=  PRINT*’  '  ' 

15680=  PRINT*’  'ENTER  CHOICE  DESIRED  >' 

15690=  READ*’  ICODE 

15700=  1420  IF  ( IC0DE.EQ.4 )  THEN 

15710=  IF  (Y(N»1’1).NE*U(N’1»1))  THEN 

15720=  PRINT  ' ( 7A )'  ’  '  STEP  SIZE  OR  RUN  TIME  ARE  NOT  SET  CORRECTL 

15730=  *Y' 

15740=  PRINT*’  'TO  PRODUCE  EQUAL  NUMBER  OF  TIME  INTERVALS' 

15750=  GO  TO  8010 

15760=  ENDIF 

15770=  IF  <  NOPT . EQ.2.0R.N0PT .EQ.5 )  GO  TO  1460 

15780=  ENDIF 

15790=  PRINT*’  '  ' 

15800=  GO  TO  ( 1425» 1430. 1435» 1440)  ICODE 

15810=C - SET  NPAIRS  (1).  SET  IFLTCN  6  LINES  (3) - 

15820=  1425  PRINT*.  'CHOICE  #1,,.Y0U"VE  CHOSEN  TO  PLOT  INPUT  AND  OUTPUT  PAIRS 
15830=  *' 

15840=  IF  (NOPT.EQ.l)  THEN 

15850=  NPAIRS=1 

15860=  ELSE 

15870=  PRINT*.  '  ' 

15880=  PRINT*.  'ENTER  THE  NUMBER  OF  PAIRS  TO  BE  PLOTTED  >' 

15890=  READ*.  NPAIRS 

15900=  ENDIF 

15910=  GO  TO  1445 

15920=  1430  PRINT*.  'CHOICE  #2.,.Y0U"VE  CHOSEN  TO  PLOT  INPUTS  OR  OUTPUTS' 
15930=  GO  TO  1445 

15940=  1435  PRINT*.  'CHOICE  *3...Y0U"VE  CHOSEN  TO  PLOT  1  INPUT  OR  1  DUTPUT' 

15950=  PRINT*.  '  FOR  VARIOUS  SIMULATIONS' 

15960=  PRINT*.  '  ' 

15970=  PRINT*.  'ENTER  THE  NUMBER  OF  SIMULATIONS  TO  BE  PLOTTED  >' 

15980=  READ*.  IFLTCN 

15990=  LINES=IFLTCN 

16000=  GO  TO  1445 
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16010=  1440  PRINT**  'CHOICE  #4...Y0U"VE  CHOSEN  TO  PLOT  1  INPUT  OR  1  OUTPUT' 
16020=  PRINT**  '  FOR  VARIOUS  SAMPLING  TIMES' 

16030=  PRINT**  '  ' 

16040=C - - - SET  NDEPTH  AND  IDEPTH<  ARRAY  ) - 

16050=  1445  IF  (IC0DE.EQ.4)  THEN 

16060=  PRINT**  'ENTER  THE  NUMBER  OF  DIFFERENT  SAMPLING  TIMES  TO  BE  PL 

16070=  *OTTED  >' 

16080=  READ**  NDEPTH 

16090=  PRINT**  '  ' 

16100=  ELSE 

16110=  NDEPTH=1 

16120=  PRINT**  '  ' 

16130=  PRINT**  'YOU  MIGHT  HAVE  SELECTED  TO  RUN  SEVERAL  SAMPLING  TIMES 

16140=  *...' 

16150=  ENDIF 

16160=  PRINT*.  'DESIGNATE  THESE  SAMPLING  TIMES  AS. ..1*2*3*  ETC...' 

16170=  PRINT**  '  ENTER  THE  '.NDEPTH,'  SAMPLING  TIME(S)  OF  INTEREST  >' 
16180=  READ*,  <IDEPTH< I), 1=1. NDEPTH) 

16190=  PRINT*,  '  ' 

16200=C - SET  CHOICE,  SET  NUM*  PRINT  MESSAGES  ( 1 )-. - 

16210=  IF  (ICODE.EQ.l)  THEN 

16220=  CHOICE='  ONE' 

16230=  NUM=NPAIRS*2 

16240=  ENDIF 

16250=  IF  (ICODE.EQ.l)  THEN 

16260=  IF  ( NOPT.EQ. 1 )  THEN 

16270=  PRINT*,  '  ' 

16280=  PRINT*,  ' - NOTE - 

16290=  * - ' 

16300=  PRINT*,  '  YOU  CAN  ONLY  PRINT  1  INPUT  VS.  1  OUTPUT  WHE 

16310=  *N  REQUESTING' 

16320=  PRINT*,  '  A  PLOT  AT  YOUR  TERMINAL' 

16330=  ENDIF 

16340=  1450  PRINT*,  ' - - - 

16350=  * - ' 

16360=  PRINT*,  '  COLUMN  ENTRIES  SHOULD  BE  INPUT  #S  FIRST,  THEN  0 

16370=  *UTPUT  #S' 

16380=  PRINT*.  ' - - - - 

16390=  # - ' 

16400=  PRINT*.  '  ' 

16410=  GO  TO  1455 

16420=  ELSE 

16430=  PRINT*.  'ENTER... INPUT  OR  OUTPUT. ..FOR  YOUR  PLOT  >' 

16440=  READ  '(A)'*  CHOICE 

16450=  IF  ( CHOICE. EQ.' INPUT  ')  CHOICE='  INPUT' 

16460=  NUM=1 

16470=  ENDIF 

16480=  IF  (IC0DE.E0.2)  THEN 

16490=  PRINT*.  '  ' 

16500=  PRINT*,  'HOW  MANY  ', CHOICE* 'S  DO  YOU  WANT  TO  PLOT  >' 
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;6510=  READ**  NUM 

i6520=  END IF 

16530=C - - - SET  IC0LMN(  ARRAY  ) - 

* 6540=  1455  PRINT**  '  ' 

16550=  PRINT*.  'WHICH  ' .CHOICE,'! S >  DO  YOU  WANT  TO  PLOT.,.' 

16560=  PRINT*.  '  ENTER  THE  '.NUM.'  CORRESPONDING  COLUMN  NUMBER(S)  >' 
16570=  READ*.  ( ICOLMN(  I ). 1=1. NUM) 

16580=  PRINT*.  '  ' 

16590=C - SET  ICLM - 

16600=  IF  ( ICODE.EQ.l )  THEN 

16610=  ICLM=NPAIRS 

16620=  ELSE 

16630=  ICLM=NUM 

16640=  ENDIF 

16650=C - ENTRY  POINT  FOR  MULTIPLE  SIMULATIONS - 

16660=  1460  CONTINUE 

16670=C - SET  PLMAT! MATRIX) - 

16680=  IF  < I CODE. EQ. 4  )  GO  TO  1495 

16690=  IF  !  CHOICE. EQ.' OUTPUT'  )  GO  TO  1480 

16700*  DO  1475  1=1, N 

16710-  DO  1475  J=1,ICLM 

16720=  IF  (IC0DE.EQ.3)  GO  TO  1465 

16730*1  -  .  INPUT! 1,2)  - 

16740=  PLMAT( I , J  )=U< I ,  ( ICOLMN!  J HI ) .IDEPTH! NDEPTH  ) ) 

16750=  GO  TO  1470 

16760*C  .  INPUT! 3)  -  - 

16770*  1465  PLMAT! I , IENTRY )=U!  I , ICOLMN!  J  )+l » IDEPTH! NDEPTH  ) ) 

16780=  1470  IF  UCODE.NE.l)  GO  TO  1475 

16790=C . . OUTPUT!  1) - - - 

16800=  PLMAT!  I , J+ICLM )=Y!  I»!  ICOLMN!  J+ICLM  )+l ), IDEPTH!  NDEPTH ) ) 

16810=  1475  CONTINUE 

16820=  GO  TO  1515 

16830=  1480  DO  1490  1=1, N 

16840=  DO  1490  J=1,ICLM 

16850=  IF  ! IC0DE.EQ.3 )  GO  TO  1485 

16860=C - OUTPUT!  2) - 

16870=  PLMAT! I , J  )=Y!  I , ICOLMN!  J  7+1 , 1 DEPTH!  NDEPTH )  > 

16880=  GO  TO  1490 

16890=0  - OUTPUT!  3) - 

16900=  1485  PLMAT!  I,  IENTRY  )=Y(  I,  ICOLMN!  -J  >41,  IDEPTH!  NDEPTH)) 

16910=  1490  CONTINUE 
16920=  GO  TO  1515 

16930=  1495  IF  ! CHOICE. EQ.' OUTPUT' )  GO  TO  1505 
16940=  DO  1500  1=1, N 

16950=  DO  1500  K*l, NDEPTH 

16960=0  - INPUT!  4) - - - 

16970=  1500  PLMAT! I, K)=U!  I, ICOLMN! ICLM >+l» IDEPTH! K  ) ) 

16980=  GO  TO  1515 

16990=  1505  DO  1510  1=1 »N 

17000=  DO  1510  K=1 .NDEPTH 


17010=C  -  -• . OUTPUTU) - - - 

17020*  1510  PLMAT< I.K  )*Y(  1 » ICOLMN<  ICLM H1»IDEPTH< K  ) ) 

17030*C - - - 

17040*  1515  IF  < IC0DE.NE.3 )  IFLTCN=1 
17050=  IFLTCN=IFLTCN-1 

17060*  IF  (IFLTCN.NE.O)  GO  TO  1520 

17070=  IF  < IC0DE.EQ.3 )  ICLM=LINES 

17080*  IF  ( IC0DE.EQ.4  )  ICLH=NL*.PTH 

17090*  GO  TO  8010 

17100*  1520  PRINT**  ' - - - 

17110=  * - ' 

17120=  PRINT*.  '  THE  '.CHOICE.'  BATA  FOR  THIS  SIMULATION  HAS  BEEN 

17130=  *SAVED' 

17140=  PRINT*.  '  THE  PROGRAM  NOW  EXITS  THE  PLOT  ROUTINE' 

17150*  PRINT*.  '  THE  NEXT  ' . IFLTCN. '  CALL(S)  TO  OPTIONS  *31  THRU  #36 
17160=  *WILL  CONTINUE' 

17170=  PRINT*.  '  TO  ADD  INFORMATION  TO  THIS  DATA' 

17180=  PRINT*.  ' - WARNING - 

17190=  * - ' 

17200*  PRINT*.  '  FOR  A  PROPER  PLOT  BETWEEN  DIFFERENT  SIMULATIONS 

17210=  *' 

17220=  PRINT*.  '  THE  SAME  SIMULATION  TIME  AND  STEP  SIZE  MUST  BE  US 

17230*  *ED' 

17240*  PRINT*.  '  SIMULATION  TIME  WAS  '.TT»'  AND  THE  STEP  SIZE  WAS 

17250=  *  ',ST 

17260=  PRINT*.  ' - 

17270*  * - ' 

17280=  GO  TO  8010 

17290=C  ********************************************************************** 

17300=C  OPTION  #37 

17310=  2037  IERR=44 

17320=  NOPT=NOPT+30 

17330=  GO  TO  9010 

17340=C  ********************************************************************** 

17350=C  OPTION  #38 

17360=  2038  IERR=44 

17370=  N0PT=N0PT+30 

17380*  GO  TO  9010 

17390=C  ********************************************************************** 

17400=C  OPTION  #39 

17410=  2039  IERR*44 

17420=  NOPT=NQPT+30 

17430=  GO  TO  9010 

17440=C  - 

17450=  8010  IERR*0 
17460*  GO  TO  9010 
17470*  1525  IERR-30 
17480*  9010  CONTINUE 
17490*  END 

17500=C  ********************************************************************** 
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i75io=c 

17520=C  OVERLAY  FOR  TERMINAL  PLu* 
I7530=c  mmmtmmmas:***--  . 
i754o=c 


17550=  OVERLAY  < 11*0) 

17560=  PROGRAM  0PT31 

17570=  CHARACTER  STRING*!?.  r>ICE*6.KHAR 

17580=  COMMON  /B  13  /  J-»Y<  UK  »il*2  ) 

17590=  COMMON  /B  14  /  IC-iSt  .'UiWICOLMNt  4  )*PLMATt  102*4) 

17600=  COMMON  /B  14A/ 

17610=  COMMON  /B  15  /  ..V;iiRS*NDEPTH*IDEPTHt  2  > 

17620=  COMMON  /B  16  /  IENTRY.-IFLTCN*  LINES 

17630=  COMMON  /SCALIT/  NX.NY.NXT.NYT.LINPIN.IGRID 

17640=  DIMENSION  XAXISt 102  ).YAXIS< 102  ) 

17650=  DATA  STRING/'  X0*=m#'  / 

17660=  DATA  XAXIS*YAXIS/204*0./ 

17670=C  - SET  PLOTIT  PARAMETERS - 

17680=  PRINT#*  'FOR  NO  GRID  ON  PLOT  ENTER  “O"*  FOR  A  GRID  ENTER  "l*  >' 

17690=  READ#*  I GRID 

17700=  NX=60 

17710=  NY=20 

17720=  NXT=10 

17730=  NYT=10 

17740=  LINPIN=B 

17750=C - FORM  TIME  AXIS  VECTOR . - . . 

17760=  DO  1600  1=1 »N 

17770=  1600  XAXISt I  )=Y< 1*1  * IDEPTH< NDEPTH  ) ) 

17780=C - FIND  MIN  6  MAX  VALUES  FOR  SCALING - 

17790=  XMAX=XAXIS( N ) 

17800=  YMIN=PLMAT< 1*1) 

17810=  YMAX=PLMAT( 1*1 ) 

17820=  IF  (ICODE.EQ.l)  ICLM=NUM 

17830=  DO  1605  1=1. N 

17840=  DO  1605  J=1,ICLM 

17850=  YMIN=MIN( YMIN. PLMATt I  * J  ) ) 

17860=  1605  YMAX=MAX( YMAX. PLMATt I *J)> 

17870=  ADD=t YMAX-YMIN  )/20 . 

17880=  YMIN=YMIN-ABD 

17890=  YMAX=YMAX+ADD 

17900=C - LOOP  FOR  PLOTTING  EACH  COLUMN  OF  DATA - 

17910=  IF  t ICODE.EQ.l)  ICLM=NPAIRS 

17920=  DO  1645  J=1,ICLM 

17930=C - FOR  EACH  YAXIS  VECTOR  OF  DATA - - 

17940=  DO  1610  1=1. N 

17950=  1610  YAXISt I  )=PLMAT(  I  * J  ) 

17960=  IF  t ICODE.EQ.l)  THEN 

17970=  KHAR='X' 

17980=  ELSE 

17990=  KHAR»STRING< JJJ) 

18000=  END IF 
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18010*  INDEX*- 1 

18020*  IF  ( J.EQ.ICLM.AND.IC0DE.NE.1 )  INDEX*-2 

18030*  CALL  PLOT IT  ( XAXIS.YAXIS.N.KHAR.O. .XMAX.YMIN.YMAX ,11, INDEX  ) 

18040*  IF  (ICODE.NE.l)  GO  TO  1620 

18050*  DO  1415  1*1 »N 

18060*  1615  YAXIS< I  )=PLMAT( I , J+NPAIRS ) 

18070*  KHAR*'Q' 

18080*  INDEX=-2 

18090=  CALL  PLOTIT  < XAXIS.YAXIS.N.KHAR.O, .XMAX.YMIN.YMAX.ll.iNDEX ) 

18100*  1620  IF  ( INDEX. NE. -2 )  GO  TO  1645 

18110=C - EXIT  TO  PRINT  STATEMENTS  WHEN  PLOT  IS  DISPLAYED - 

18120*  IF  ( ICODE.EQ.l )  GO  TO  1640 

18130*  DO  1635  I=1»ICLM 

18140*  IF  UC0DE.EQ.3)  GO  TO  1625 

18150*  IF  (IC0DE.EQ.4)  GO  TO  1630 

18160*  PRINT**  'CURVE  ', STRING* III ),'  ABOVE  IS  '.CHOICE,'  '»  ICOLMN( I > 
18170*  GO  TO  1635 

18180*  1625  PRINT**  'CURVE  ' .STRING* 1 1 1  )* '  ABOVE  IS  '*CHOICE*'  ' »ICOLMN(  1  )*'  F 
18190*  *0R  FLIGHT  CONDITION  '*1 

18200*  GO  TO  1635 

18210=  1630  PRINT*.  'CURVE  ' *STRING( 1*1).'  ABOVE  IS  '.CHOICE*'  ' .ICOLMN( 1 ).'  F 
18220*  *0R  SAMPLING  TIME  '.I 

18230*  1635  CONTINUE 
18240*  GO  TO  1645 

18250=  1640  PRINT*.  'CURVE  X  REPRESENTS  INPUT  '.ICOLMNU) 

18260=  PRINT*.  'CURVE  0  REPRESENTS  OUTPUT  '.  IC0LMN(2) 

18270*  1645  CONTINUE 
18280=  I CODE =0 

18290=  IENTRY=0 

18300*C  - 

18310=  END 

18320=C  ********************************************************************** 
18330=C  ********************************************************************** 

18340=C  OVERLAY  FOR  CALCOMP  PLOT 

18350=C  ********************************************************************** 
18360=C  ********************************************************************** 

18370=  OVERLAY  (12.0) 

18380=  PROGRAM  0PT34 

18390=  CHARACTER  YTITLE*30.CHOICE*6.XTITLE*20.LFN*60 

18400=  COMMON  /B  1  /  NOPT. IERR.IPLANT.IFLAG< 40 ) 

18410=  COMMON  7B  13  /  N.Y* 100,11,2) 

18420=  COMMON  /B  14  /  ICODE,NUM»ICOLMN< 4  )»PLMAT(  102,4) 

18430=  COMMON  /B  14A/  CHOICE 

18440=  COMMON  /B  15  /  ICLM»NPAIRS,NDEPTH,IDEPTH<  2 ) 

18450=  COMMON  /B  16  /  IENTRY.IFLTCN .LINES 

18460=  COMMON  /B  17  /  IPLOT 

18470=  DIMENSION  XAXIS(  102 ), YAXIS< 102  ) 

18480=  DIMENSION  ABSC< 4  )»ORD< 4  ) 

18490*  DATA  XAXIS»YAXIS/204*0./ 

18500=  DATA  ABSC,0RD/8*0./ 


18510*  DATA  XTITLE/'  TIME.  SECONDS  '/ 

18520=C - COUNT  *  OF  PLOTS  IN  FILE - 

18530*  IPL0T*IPL0T+1 

18540*C - CREATE  TINE  AXIS - 

18550*  DO  1700  1*1 » N 

18560*  1700  XAXISt I  )*Y( 1 . 1 » IDEPTH( NDEPTH ) ) 

18570=C - FIND  NIN  &  MAX  VALUES  FOR  SCALING - 

18580*  YMIN=PLMAT( 1.1 ) 

18590=  YMAX=PLMAT( 1.1 ) 

18600*  IF  ( ICODE.EG.l )  ICLN=NUM 
18610=  DO  1705  I=1»N 
18620=  DO  1705  J=1.ICLM 
18630=  YMIN=NIN(  YMIN»PLHAT< I  »J ) ) 

18640=  1705  YMAX=HAX(  YMAX » PLHAT ( I .  J  ) ) 

18650=C - CREATE  YAXIS  FOR  SCALING - 

18660=  YAXIS< 1  )=YNIN 
18670=  YAXIS( 2  )=YHAX 
18680=  DO  1706  1=3 .N 
18690=  1706  YAXIS( I  )=PLMAT< I .2  ) 

18700=C - OBTAIN  PLOT  TITLES - 

18710=  1710  PRINT* .  'ENTER  TITLE  FOR  Y-AXIS  OF  PLOT  < MAX  OF  30  CHARACTERS)' 
18720=  PRINT*.  '  <' 

18730=  PRINT  '(A)'.  '  +  >' 

18740=  READ  '(A)' »  YTITLE 

18750=  PRINT**  'TITLE  ISt  '» YTITLE 

18760=  CALL  ANSWER  (*1710**1730) 

18770=  1712  PRINT**  'ENTER  MAIN  PLOT  TITLE  (MAX  60  CHARACTERS)' 

18780=  PRINT**  ' 

18790=  *  <' 

18800=  PRINT  '(A)',  '  +  >' 

18810=  READ  '(A)',  LFN 

18820=  PRINT*.  'NAIN  TITLE*  ' *LFN 

18830=  CALL  ANSWER  (*1712**1730) 

18840=C - BEGIN  CALCOMP  PLOTTING  CALLS - 

18850=  CALL  PLOTS  ( ABM.BAM.MMAB ) 

18860=C - SET  PLOT  SIZE - 

18870=  PRINT*.  'ENTER  PLOT  SIZE  FACTOR. * ♦>' 

18880=  READ*.  FACTR 

18890=  PRINT*.  '  ' 

18900=  CALL  FACTOR  (FACTR) 

18910=C - SCALE  PLOT - 

18920=  CALL  SCALE  ( XAXIS.8. *N.l  ) 

18930=  CALL  SCALE  (YAXIS.5..N.1 ) 

18940=  DO  1715  J=1.ICLH 

18950=  PLMAT<  N+l * J  )=YAXIS( N+l ) 

18960*  1715  PLHAT( N+2.  J  )=YAXIS( N+2 ) 

18970*  ABSC( 3  )*XAXIS( N+l ) 

18980=  ABSC( 4  )=XAXIS(  N+2 > 

18990*  ORD( 3  )=YAXIS( N+l ) 

19000*  ORD( 4  )*YAXIS(  N+2  ) 
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19010=C - CREATE  ORIGIN- - - 

19020*  CALL  PLOT  <2.*2.*-3> 

19030*C - PLOT  X*  Y  4  ORIGIN  '.:;TS'S - 

19040*  CALL  AXIS  <04»0.»XTITLE*-20*8,.0.  .  iX-SC N+l  )»XAXIS< N+2 ) ) 

19050*  CALL  AXIS  ( O.tO.  .YTITLE.30.5.  .90. 7IS(  N+l  ).YAXIS<  N+2  ) ) 

19040*  IF  <YMIN«LT»0«)  THEN 

19070*  ABSC(  2  )*XAXIS<  N ) 

19080*  CALL  LINE  (  ABSC*ORD. 2.1 .2* 17  ) 

19090*  ENDIF 

19100*C - PLOT  EACH  CURVE *  ^T.  ’JOL  &  BOX - 

19110*  IF  ( ICODE.EQ. 1 )  ICLH*NPAIRS 

19120*  DO  1725  J*1.ICLM 

19130*  DO  1720  1=1. N+2 

19140*  1720  YAXIS< I  )=PLHAT< I  *  J ) 

19150*  XSYM=( ( XAXISC N  )-XAXIS<  N+l )  )/XAXIS( N+2  >  )+.25 
19140*  YSYh*( YAXIS(  N )-YAXIS<  N+l )  )/YAXIS( N+2 ) 

19170*  CALL  FLINE  (XAXIS.YAXIS.-N.1.1.72 ) 

19180=  CALL  SYMBOL  <  XSYN.YSYM* .105*54+IC0LMN< J  )»0*  *-l ) 

19190*  IF  ( ICODE.NE.l )  GO  TO  1725 

19200*  DO  1722  I*l»N+2 

19210*  1722  YAXIS( I  )*PLMAT(  I » J+NPAIRS ) 

19220=  YSYM=(  YAXIS(  N )-YAXIS(  N+l ) )/YAXIS(  N+2 ) 

19230=  CALL  FLINE  <XAXIS*YAXIS*-N.1*1*72) 

19240=  CALL  SYMBOL  ( XSYM. YSYM. .105»54+IC0LMN( J  )t 0. »-l ) 

19250=  1725  CONTINUE 

19240=  CALL  RECT  ( -0.5»-0.5»6. »9. »0. >3 ) 

19270=C - TERMINATE  PLOTTING  CALLS - 

19280=  CALL  SYMBOL  (  0, »-.8» , 14»LFN»0. »40  ) 

19290=  CALL  PLOTE  ( BLK  ) 

19300=  N0PT*N0PT+30 

19310=  PRINT**  ' - 

19320=  * - ' 

19330=  PRINT**  'LOCAL  FILE  ’PLOT*  CONTAINS  THE  CALCOMP  DATA  FOR  THIS  ENTR 

19340=  *Y  TO  OPTION  #'*NOPT 

19350=  PRINT**  '  YOU  HAVE  GENERATED  A  TOTAL  OF  '*IPLOT*'  P 

19340*  *LOT( S )' 

19370=  IF  (IPL0T.GE.5)  THEN 

19380=  PRINT**  '  SINCE  5  CALCOMP  PLOTS  ON  ONE  FILE  ARE  THE  LIM 

19390=  *IT' 

19400=  PRINT**  '  PLEASE  USE  OPTION  *99  NEXT*  AND  ROUTE  “PLOT"  TO  T 

19410*  *0  THE  PRINTER' 

19420*  PRINT**  ' - - - 

19430=  * - ' 

19440=  ELSE 

19450=  PRINT*.  '  BE  SURE  TO  ROUTE  "PLOT"  TO  THE  PRINTER  BEFO 

19440*  *RE  LOGOUT' 

19470=  PRINT**  ' - 

19480*  * - ' 

19490*  ENDIF 

19500=C  - 


184 


19510*  IERR-0 

19520*  IENTRY=0 

19530*  ICODE-O 

19540*  GO  TO  9012 

19550*  1730  IPL0T*IPL0T-1 
19560*  9012  CONTINUE 

19570*C  - 

19580*  END 

19590*C  ********************************************************************** 

i9Aoo*c 

19610=C  OVERLAY  FOR  ERROR  STATEMENTS 

19620=C  ********************************************************************** 
i9630=c 

19640*  OVERLAY  < 13*0) 

19650=  PROGRAM  ERROR 

19660=  COMMON  /B  1  /  NOPT  *IERR*IPLANT*IFLAG( 40 ) 

19670=  PRINT**  '  ' 

19680=  GO  TO  (  3001 *3002 >3003 *3004 >3005 *3006 *3007 *3008*3009* 

19690*  *3010*3011*3012*3013*3014*3015*3016*3017*3018*3019* 

1 9700*  *3020  *  302 1  *  3022 » 3023  *  3024  *  3025  *  3026  *  3027  *  3028  *  3029  * 

19710=  *3030  *  303 1  *  3032  *  3033  *  3034  * 3035  *  3036  *  3037  *  3038  *  3039  * 

19720*  *3040 , 3041 , 3042 . 3043 . 3044  >IERR 

19730=C - OPTION  ERRORS - 

19740=  3001  PRINT**  'G<0>  MATRIX  MISSING. . .SEE  OPTION  #1' 

19750=  GO  TO  8013 

19760=  3002  PRINT**  '#  OF  STATES.  INPUTS  6  OUTPUTS  MISSING. . .SEE  OPTION  #2' 
19770=  GO  TO  8013 

19780=  3003  PRINT*.  'A,  B,  C  &  D  MATRICES  MISSING. , .SEE  OPTION  #3' 

19790=  GO  TO  8013 

19800=  3004  PRINT*.  'ACTUATOR  STATE  EQUATIONS  MISSING. . .SEE  OPTION  #4' 

19810=  GO  TO  8013 

19820=  3005  PRINT*.  'SENSOR  STATE  EQUATIONS  MISSING. . .SEE  OPTION  #5' 

19830=  GO  TO  8013 

19840=  3006  PRINT**  'ERROR  *6  STATEMENT' 

19850=  GO  TO  8013 

19860*  3007  PRINT*.  'ERROR  *7  STATEMENT' 

19870=  GO  TO  8013 

19880=  3008  PRINT*.  'LOCAL  FILE  HOLDS  STATE*  ACTUATOR  &  SENSOR  INFO... SEE  OPTI 
19890=  *0N  #9' 

19900=  GO  TO  8013 

19910*  3009  PRINT*.  'LOCAL  FILE  HOLDS  G(0)  INFO... SEE  OPTION  #8' 

19920*  GO  TO  8013 

19930*  3010  PRINT*.  'ERROR  #10  STATEMENT' 

19940=  GO  TO  8013 

19950*  3011  PRINT*.  'ALPHA  MISSING. . .SEE  OPTION  #11' 

19960-  GO  TO  8013 

19970-  3012  PRINT*.  'SIGMA  WEIGHTING  MATRIX  MISSING. . .SEE  OPTION  #12' 

19980*  GO  TO  8013 

19990-  3013  PRINT*.  'SIGMA  MATRIX  MULTIPLIER  MISSING. . .SEE  OPTION  #13' 

20000*  GO  TO  8013 
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20010=  3014  PRINT**  'K0  &  K1  MATRICES  HISSING. . .SEE  OPTION  *14' 

20020=  CO  TO  8013 

20030=  3015  PRINT**  'ERROR  #15  STATEMENT' 

20040=  GO  TO  8013 

20050=  3014  PRINT**  'ERROR  *16  STATEMENT' 

20060=  GO  TO  8013 

20070=  3017  PRINT**  'ERROR  *17  STATEMENT' 

20080=  GO  TO  8013 

20090=  3018  PRINT**  'MEASUREMENT  MATRIX  MISSING. . .SEE  OPTION  #18' 

20100=  GO  TO  8013 

20110=  3019  PRINT**  'ERROR  #19  STATEMENT' 

20120=  GO  TO  8013 

20130=  3020  PRINT**  'ERROR  *20  STATEMENT' 

20140=  GO  TO  8013 

20150=  3021  PRINT**  'STATE  AND  INTEGRATOR  INITIAL  CONDITIONS  MISSING. . .SEE  OPT 
20160=  *ION  #21' 

20170=  GO  TO  8013 

20180=  3022  PRINT**  'COMMAND  VECTOR  MISSING. . .SEE  OPTION  #22' 

20190=  GO  TO  8013 

20200=  3023  PRINT**  'SAMPLING  TIMES  MISSING. . .SEE  OPTION  #23' 

20210=  GO  TO  8013 

20220=  3024  PRINT*.  'SIMULATION  TIME  MISSING. . .SEE  OPTION  #24' 

20230=  GO  TO  8013 

20240=  3025  PRINT**  'STEP  SIZE  MISSING. . .SEE  OPTION  *25' 

20250*  GO  TO  8013 

20260=  3026  PRINT*.  'SIMULATION  RUN  DATA  MISSING. . .SEE  OPTION  #26' 

20270=  GO  TO  8013 

20280=  3027  PRINT*.  'THERE  ARE  NO  CONTROL  LIMITS  SET... SEE  OPTION  #27' 

20290=  GO  TO  8013 

20300=  3028  PRINT*,  'ERROR  #28  STATEMENT' 

20310=  GO  TO  8013 

20320=  3029  PRINT*,  'ERROR  #29  STATEMENT' 

20330=  GO  TO  8013 

20340=  3030  PRINT*.  'PLOT  CHOICES  HAVE  NOT  BEEN  ENTERED' 

20350=  GO  TO  8013 

20360=C - MATRIX  ERRORS - 

20370=  3031  PRINT*,  'INVERSE  OF  G(0>  CAN"T  BE  FOUND' 

20380=  GO  TO  8013 

20390=  3032  PRINT*.  'INVERSE  OF  C*B  CAN"T  BE  FOUND' 

20400=  GO  TO  8013 

20410=  3033  PRINT*,  'INVERSE  OF  B2  CAN"T  BE  FOUND' 

20420=  GO  TO  8013 

20430=  3034  PRINT*,  'INVERSE  OF  F2  CAN"T  BE  FOUND' 

20440=  GO  TO  8013 

20450=  3035  PRINT*,  'INVERSE  OF  C  (A12  *  K)  -  All  3  CAN"T  BE  FOUND' 

20460=  PRINT*.  'TRY  ANOTHER  K  MATRIX  FROM  C.E.S.A.' 

20470=  CO  TO  8013 

20480*  3036  PRINT*.  'INVERSE  OF  •A"  MATRIX  CAN' ' T  BE  FOUND' 

20490*  GO  TO  8013 

20500=  3037  PRINT*,  'ERROR  *37  STATEMENT' 
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20510-  GO  TO  8013 

20520-  3038  PRINT**  'ERROR  *38  STATEMENT' 

20530-  GO  TO  8013 

205*0-  3039  PRINT**  'DIMENSIONING  PROBLEM  IN  CALL  TO  SUBROUTINE  VMULFF' 

20550-  GO  TO  8013 

20560-C - MISCELLANEOUS  ERRORS - 

20570-  3040  PRINT**  'OPTION  ABORTED. . .G< 0 )  MUST  BE  SQUARE' 

20580-  GO  TO  8013 

20590-  3041  PRINT**  'ERROR  *41  STATEMENT' 

20000-  GO  TO  8013 

20610-  3042  PRINT**  '*STATES  «  *INPUTS. . .MEASUREMENT  MATRIX  CAN' ' T  BE  FORMED' 
20620-  PRINT**  'USE  UNKNOWN  OR  REGULAR  DESIGN*  OR  SEE  INSTRUCTOR' 

20630-  GO  TO  8013 

20640=  3043  PRINT**  'THE  ARE  NO  VALUES  IN  MEMORY  CORE  FOR  OPTION  *' ,NOPT 
20650-  GO  TO  8013 

20660=  3044  PRINT**  'OPTION  *'»NOPT»'  NOT  AVAILABLE  AT  THIS  TIME' 

20670-C  - 

20680-  8013  IERR-0 
20690-  END 

20700-C  ********************************************************************** 
20710-C  ********************************************************************* 

20720-C  OPTION  #99  —  MEMORY  FILES 

20730-C  ********************************************************************** 
20740-C  ********************************************************************** 

20750=  OVERLAY  (14.0) 

20760=  PROGRAM  MEMORY 

20770=  REAL  K0.K1.MM 

20780=  INTEGER  P.PD.DAT1.DAT2.DAT3 

20790=  CHARACTER  DMATRX.METHOD.ACT.SEN 

20800=  COMMON  /B  1  /  NOPT»IERR.IPLANT.IFLAG(  40 > 

20810=  COMMON  /B  2  /  N.M.P.ND.MD.PD 

20820=  COMMON  /B  3/G0U0.10) 

20830=  COMMON  /B  4  /  A<  10.10 )»B<  10.10). C<  10.10) 

20840=  COMMON  /B  5  /  D(  10.10) 

2CuoO=  COMMON  /B  6  /  DMATRX.ACT.SEN 

20860=  COMMON  /B  7A/  NA(  10 ).AA< 10.2.2  ).BA( 10.2  ).CA(  10.2  ) 

20870=  COMMON  /B  7S/  NS(  10 ).AS( 10.2.2  ).BS( 10.2  ).CS(  10.2  ) 

20880-  COMMON  /B  8  /  ALPHA »EPSLON»GAMA( 10.10  ) 

20890=  COMMON  /B  8A/  METHOD 

20900=  COMMON  /B  9  /  K0(  10.10  ).K1< 10. 10  ) 

20910=  COMMON  /B  10  /  NG.GNUO) 

20920=  COMMON  /B  11  /  MM( 10.10) 

20930=  COMMON  /B  12A/  X0< 10  )»Z0< 10  ).V< 10  ) 

20940=  COMMON  /B  12B/  ST.TT 

20950-C - FORM  MEMO  MEMORY  FILE - 

20960=  DAT  1-20 

20970-  OPEN  (DAT1. FILE-' MEMO' ) 

20980-  REWIND  DAT1 

20990=  IF  (IPLANT.EQ.2)  GO  TO  1772 

21000=  DO  1750  1-2.3 
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21010*  1750  IF  < IFLAG( I  )<EQ«0)  IPLANT-0 
21020*  WRITE  <DAT1»*>  I PLANT 
21030-  WRITE  (DATlr*)  N.M.P 
21040-  00  1752  1*1 >N 

21050-  1752  WRITE  ( DAT1.0 )  ( A< I. J  >. J-l.N  ) 

21000*  DO  1754  1*1 .N 

21070*  1754  WRITE  (DATl.*)  ( B<  I. J  )» J*1»M ) 

21080*  DO  1756  I-lfP 

21090*  1756  WRITE  (DATl.*)  <  C<  I .  J  ).  J-l.N  > 

21100*  WRITE  ( DATl.M  A  )'  )  DHATRX 
21110*  IF  ( DHATRX. EQ. 'N'  )  GO  TO  1760 
21120*  DO  1758  1*1. P 
21130*  1758  WRITE  ( DATl.* )  (  D(  I. J  >»J*1»M  ) 

21140*  1760  WRITE  <DAT1»'(A>')  ACT 
21150*  IF  ( ACT.EQ.'N' )  GO  TO  1766 
21160*  WRITE  (DATl.*)  ( NA( I  )»I=1»M  ) 

21170*  DO  1764  K=1»M 

21180*  DO  1762  I*lfNA(K) 

21190*  1762  WRITE  ( DATl.* )  < AA< K» I. J ). J=1»NA( K  ) ) 
21200*  WRITE  (DAT1>«)  < BA< K. I  )»I*1 .NA< K  ) ) 
21210*  1764  WRITE  <DAT1»«)  <  CA(  K»I  )»I=1»NA<  K  ) ) 
21220=  1766  WRITE  (DATl.' (A)')  SEN 

21230*  IF  (SEN.EQ.'N'  )  GO  TO  1776 

21240-  WRITE  (DATl.*)  <  NS(  I  )»I*ltP  ) 

21250*  DO  1770  K=1»P 

21260*  DO  1768  I*1»NS(K) 

21270*  1768  WRITE  (DAT1»*)  (  AS(  K»I»J )» J*1»NS( K ) ) 

21280*  WRITE  (DAT1>*)  ( BS<  Kf I )*I*1»NS(  K  ) ) 

21290*  1770  WRITE  <DAT1»»>  ( CS<  K» I )» 1=1 »NS< K  > ) 

21300*  GO  TO  1776 

21310*  1772  WRITE  (DATl.*)  I PLANT 

21320*  WRITE  ( DATl?*  )  M*P 

21330*  DO  1774  1*1. P 

21340*  1774  WRITE  <  DATl.* )  < C0< I . J  ). J-l.H ) 

21350-C - FORM  MEM  10  MEMORY  FILE 

21360*  17 ‘ ^  DAT 2*30 

21370-  OPEN  (DAT2. FILE-' MEM10' ) 

21380*  REWIND  DAT 2 

21390*  WRITE  (  DAT2»'(  A  )'  )  METHOD 

21400*  WRITE  (DAT2.0  )  ALPHA 

21410*  WRITE  (DAT2.S)  <GAMA< I»I ).I=1»P) 

21420*  WRITE  ( DAT2.0 )  EPSLON 

21430-  DO  1778  I-l.M 

21440*  1778  WRITE  (DAT2.0)  ( K0(  I.J  )»J*1 .P  ) 

21450-  IF  ( ALPHA. EQ.l)  GO  TO  1781 

21460-  DO  1780  I-l.M 

21470-  1780  WRITE  (DAT2.0)  <K1< I»J)»J*1.P) 

21480-  1781  IF  <  METHOD. EQ. ' I' )  THEN 

^♦90-  DO  1782  I-l.P 

21500*  1782  WRITE  (DAT2.0)  < MM(  I.J ),4»1 .N-M ) 


21510»  ENDIF 

21520*C - FORM  MEM20  MEMORY  FILE - 

21530*  DAT3=50 

21540*  OPEN  < DAT3*FILE='HEM20' ) 

21550*  REWIND  DAT3 

21560*  WRITE  <  DAT3*f )  ( X0( 1  )*I=1,N  ) 

21570*  WRITE  <DAT3**>  <Z0< I  )*I*1*P) 

21580*  WRITE  <DAT3**>  <V(I),I=1*P) 

21590*  WRITE  ( DAT3** )  NG*< GN< I >*I*1 *NG ) 

21600*  WRITE  (DAT3**)  TT 

21610*  WRITE  ( DAT3ft )  ST 

21620*C  - 

21630*  IF  (IPLANT.EQ.2)  GO  TO  1796 

21640*  PRINT**  'ALL  PLANT  INPUT  DATA  HAS  BEEN  SAVED  IN  A  LOCAL  FILE' 
21650*  PRINT**  '  CALLED  "MEMO"' 

21660*  GO  TO  1798 

21670*  1796  PRINT  '(/A)'*  '  THE  G<0>  MATRIX  HAS  BEEN  SAVED  IN  A  LOCAL  FILE' 
21680*  PRINT**  '  CALLED  "MEMO"' 

21690*  1798  PRINT**  '  ' 

21700*  PRINT*,  'ALL  DESIGN  DATA  HAS  BEEN  SAVED  IN  A  LOCAL  FILE' 

21710*  PRINT  '(A/)',  '  CALLED  "MEM 10"' 

21720*  PRINT**  'ALL  SIMULATION  DATA  HAS  BEEN  SAVED  IN  A  LOCAL  FILE' 

21730*  PRINT  '(A/)'*  '  CALLED  "MEM20"' 

21740=C  - 

21750*  END 

21760*C  ********************************************************************** 
21770-C  ********************************************************************** 

21780=C  OPTIONS  *100  THRU  *139 

21790*C  ********************************************************************** 
21B00=C  ********************************************************************** 

21810*  OVERLAY  (15*0? 

21820*  PROGRAM  PRINT 

21830*  CHARACTER  DMATRX*METH0D*CH0ICE*6,PLTYPE*10*STRING*10 

21840*  CHARACTER  ACT* SEN 

21850=  INTEGER  P,PD 

21860*  REAL  K0*K1*MM 

21870*  COMMON  /B  1  /  NOPT»IERR*IPLANT*IFLAG(  40) 

21880=  COMMON  /B  2  /  N,M*P*ND*MD*PD 

21890*  COMMON  /B  3/G0(10*10) 

21900*  COMMON  /B  4  /  A(  10* 10  ),B< 10,10  )*C( 10*10 ) 

21910*  COMMON  /B  5  /  DUO*  10) 

21920*  COMMON  /B  6  /  DMATRX*ACT*SEN 

21930*  COMMON  /B  7A/  NA< 10  )*AA< 10*2*2  )*BA( 10*2 >*CA(10*2  ) 

21940*  COMMON  /B  7S/  NS<  10  >*AS<  10*2*2  >*BS(10*2  )*CS<  10*2  ) 

21950*  COMMON  /B  8  /  ALPHA, EPSLON,GAMA(  10* 10  ) 

21960*  COMMON  /B  8A/  METHOD 

21970*  COMMON  /B  9  /  K0(  10,10  )»K1< 10*10  ) 

21980*  COMMON  /B  10  /  NG*GN( 10 ) 

21990*  COMMON  /B  11  /  MM< 10*10) 

22000*  COMMON  /B  12A/  X0< 10  ),Z0< 10 >»V< 10 ) 
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* 

22010s  COMMON  /B  12B/  ST.TT 

22020=  COMMON  /B  13  /  NT*YP( 100*11*2 ) 

22030=  COMMON  /B  13A/  UP(  100*11*2) 

22040=  COMMON  /B  13B/  IL1M»IMIN< 10 )* IMAX(  10).UMIN< 10 >,UMAX( 10 ) 

22050=  COMMON  /B  14  /  ICODE*NUM*ICOLNN< 4  )*PLNAT< 102*4) 

22060=  COMMON  /B  14A/  CHOICE 

22070=  COMMON  /B  15  /  ICLM*NPAIRS*NDEPTH*IDEPTH( 2  ) 

22080=  COMMON  /B  16  /  1ENTRY » IFLTCN .LINES 

22090=  COMMON  /£  17  /  IPLOT 

22100=  DATA  STRING/' 1234567890' / 

22110=C - *■ - - - 

22120=  IF  <  NOPT . EQ.100  )  GO  TO  2100 

22130=  N0PT*N0PT-100 

22140=  IF  < NOPT. EQ. 6. OR. NOPT. EQ. 7. OR. NOPT. EQ. 8. OR. NOPT. EQ. 9. OR. 

22150=  *NOPT .EQ . 10 . OR . NOPT . EQ . 15 . OR . NOPT . EQ . 1 6 . OR . NOPT . EO . 17 . OR . 

22160=  .  *NOPT .EQ. 19.0R.N0PT.EQ.20.0R.N0PT .EQ.28.0R.N0PT.EQ.29.0R. 

22170=  tNOPT .E0.30  )  GO  TO  1995 

22180=  IERR=NOPT 

22190=  IF  (IFLAG(IERR).EG.O)  GO  TO  9015 

22200=  GO  TO  (2101*2102*2102*2104*2105*1995,1995*1995*1995* 

22210=  *1995,2111*2112*2111*2114*1995*1995,1995*2118*1995* 

22220=  *1995*2121*2121*2123*2123.2123*2126*2127,1995*1995, 

22230=  *1995)  NOPT 

22240=C  ********************************************************************** 

22250=C  OPTION  #100 

22260=  2100  PRINT*.  'ALL  100-SERIES  OPTIONS  PRINT  DATA  VALUES...' 

22270*  PRINT*,  '  FOR  VALUES  SET  IN  OPTION  #1...USE  OPTION  *101' 

22280=  PRINT*,  '  FOR  VALUES  SET  IN  OPTION  #2... USE  OPTION  #102' 

22290=  PRINT*,  'ETC.' 

22300=  PRINT*,  '  FOR  PLOTTING  SELECTIONS . USE  OPTION  *130' 

22310=  GO  TO  8015 

22320=C  ********************************************************************** 

22330=C  OPTION  #101 

22340=  2101  PRINT*,  'THERE  ARE  '*M,'  INPUTS  AND  '*P*'  OUTPUTS' 

22350=  PRINT  4110 

22360=  CALL  MATPR  (GO.P.M) 

22370=  GO  TO  8015 

22380=C  ********************************************************************** 

22390=C  OPTION  #102  OR  #103 

22400=  2102  PRINT*.  'THERE  ARE  '*N*'  STATES*  '*M*'  INPUTS  6  '*P*'  OUTPUTS' 
22410=  IF  <  N0PT.EQ.2 )  GO  TO  8015 

22420=C  ********************************************************************** 

22430*  1800  PRINT*.  ' ENTER. . .A*B*C*D. . .FOR  PRINTOUT  >' 

22440=  READ  '(A)'*  PLTYPE 

22450*  IF  (PLTYPE. EO.' A' )  THEN 

22460*  PRINT  4075 

22470=  CALL  MATPR  ( A.N.N ) 

22480*  GO  TO  8015 

22490=  ELSEIF  (PLTYPE. EO.'B' )  THEN 

22500=  PRINT  4080 
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22510s 

22520= 

22530s 

22540s* 

22550= 

22560= 

22570= 

22580= 

22590=’ 

22600= 

22610=" 

22620= 

22630= 

22640= 

22650= 

22660= 

22670= 

22680=C 

22690=C 

22700= 


CALL  HATPR  (  B*N*N  ) 

GO  TO  8015 

ELSE IF  (PLTYPE.EQ.'C'  >  THEN 
PRINT  4095 
CALL  HATPR  (C*P*N) 

GO  TO  8015 

ELSEIF  <  PLTYPE.EQ.'D'  )  THEN 
IF  (DHATRX.EQ.'N' >  THEN 

PRINT  '(/A >'»  '  THERE  IS  NO  D  MATRIX' 

GO  TO  8015 
ENDIF 

PRINT  4100  • 

CALL  HATPR  <D*P*H) 

GO  TO  8015 

ELSE 

GO  TO  1800 
ENDIF 

mmmmmmmmmmmmmmt**««*********m**K*m*tt* 
OPTION  #104 
2104  DO  1805  K=1*H 


22710=  PRINT  '</)' 

22720=  PRINT#*  ' ACTUATOR  #' *K»' ... ' 

22730=  PRINT  4115 

22740=  IF  <  NA( K  KEG. 1 )  THEN 

22750=  PRINT  4120*  AA< K. 1*1 >*BA< K* 1  ),CA( K*1 ) 

22760=  GO  TO  1805 

22770=  ELSE 

22780=  PRINT  4125*  <  AA<  K*1*J)*J=1*2  )*BA( K*1 ),( CA(  K*I)» 1=1*2) 

22790=  PRINT  4125*  < AA( K»2* J  )*J=1 *2  )*BA( K*2 ) 

22800=  ENDIF 

22810=  1805  CONTINUE 
22820=  GO  TO  8015 


22830=C  *##**#*##*#***#*##*#*###***#*##**##****#**#*#*****##*#**#****##****### 

22840=C  OPTION  #105 
22850=  2105  DO  1810  K=1*P 


22860= 

PRINT  '</)' 

22870= 

PRINT#*  'SENSOR 

#' *K*' 

22880= 

PRINT  4115 

22890= 

IF  (NS(K).EQ.l) 

THEN 

22900= 

PRINT  4120* 

AS( K*l*l  )*BS(  K*1 )*CS(K*1 ) 

22910= 

GO  TO  1810 

22920= 

ELSE 

22930= 

PRINT  4125* 

( AS(K*1*J)*J=1»2)*BS(K*1)»(CS(K*I  )*I=1»2) 

22940= 

PRINT  4125* 

( AS( K*2* J  )* J=1 *2 )*BS(  K»2 ) 

22950s 

ENDIF 

22960= 

1810  CONTINUE 

22970= 

GO  TO  8015 

22980=C  ###*##*#*######*#####*##############***#######*#*########****##*###*## 


22990=C  OPTIONS  *111  AND  #113 

23000s  2111  PRINT  '( A*27X*1F10.5  )' *'  ALPHA. ..'* ALPHA 
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23010®  PRINT  <A  U:i0.5>' »'  SIGMA  MATRIX  MULTIPLIER*  EPSILON. ..' .EPSLbN 

23020=  GO  TO  3^5 

23030*c 

23040=C  OPTION  .. 

23050=  2112  PRINT  '(Vi',  '  SIGMA  WEIGHTING  MATRIX...' 

23060=  CALL  (GAMA.P.P) 

23070=  GO  T»* 

23080=c  tMmn^aa.nm**************************************************** 

23090=C  OPTION  .-114 

23100=  2114  IF  ( .•."T,!0'i»,EO»/ X'  )  GO  TO  1824 
23110=  IK  ... :  ijf.‘ .EQ. '  U'  )  PLTYPE®' UNKNOWN' 

23120=  IF  (nFTHOD.EQ.'R'  >  PLTYPE=' REGULAR' 

23130=  IF  (HETHOD.EQ.'r  )  PLTYPE=' IRREGULAR' 

23140*  PRINT**  'CONTROL  MATRICES  ARE  FOR  PLANTS  WHICH  ARE  ' *PLTYPE 
23150=  1824  PRINT  '</A/)'»  '  KO  MATRIX...' 

23160=  CALL  MATPR  (KO*M*P) 

23170=  IF  ( ALPHA. EQ.l)  THEN 

23180=  PRINT  '(/A/)'*  '  K1  MATRIX  IS  IDENTICAL  TO  KO  MATRIX' 

23190=  GO  TO  8015 

23200=  ENDIF 

23210=  PRINT  '</A/)'»  '  K1  MATRIX...' 

23220=  CALL  MATPR  <K1»M*P) 

23230=  GO  TO  8015 

23240=C  ***************************************************************1  .#* 

23250=C  OPTION  *118 

23260=  2118  PRINT  '(A/)'.  '  MEASUREMENT  MATRIX...' 

23270=  CALL  MATPR  (MM.P.N-M) 

23280=  GO  TO  8015 

23290=C  ********************************************************************** 
23300=C  OPTIONS  *121  AND  *122 

23310=  2121  PRINT  '<A/)'»  '  X<0).  INITIAL  STATES...' 

23320=  PRINT  4130»  (X0< I )»I=1»N) 

23330=  PRINT  '(/A/)',  '  Z<0>.  INITIAL  STATES...' 

23340*  PRINT  4130.  <  Z0< I )» 1=1 »P ) 

23350=  PRINT  '(/A / )' »  '  INPUT  COMMAND  VECTOR.  V  (TRANSPOSED)...' 

23360=  PRINT  4130.  <V(I).I=1,P) 

23370=  GO  TO  8015 

23380*C  ********************************************************************** 

23390=C  OPTIONS  *123  TO  #125 

23400=  2123  PRINT  '( A»18X»5( F10.5 ) )' »  '  SAMPLING  TIMES. . .'  »<  GN( I ). I=1.NG  ) 
23410=  PRINT  '(A.17X.F10.5)'.  '  SIMULATION  TIME...'»TT 

23420*  PRINT  '< A.11X.F10.5 >' »  '  CALCULATION  STEP  SIZE... '.ST 

23430*  GO  TO  8015 

23440*C  ********************************************************************** 
23450*C  OPTION  #126 

23460=  2126  PRINT*.  'ENTER. . .INPUT .OUTPUT. . .FOR  DATA  MATRIX  >' 

23470=  READ  '(A)'.PLTYPE 

23480=  PRINT*.  'ENTER  SAMPLING  TIME  OF  INTEREST  AS. ..1.2.3.  ETC...>' 
23490=  READ*.  IG 

23500=  IF  (PLTYPE.EQ.' INPUT  ' )  THEN 
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V- 


23510* 

23520= 

23530* 

23540*  1830 

23550= 

23560= 

23570= 

23580= 

23590= 

23600=  1835 

23610= 

23620= 

23630= 

23640= 


PRINT  '(/A/)'.  '  INPUT  DATA  MATRIX...' 

PRINT  ' ( 5X.A.11X, 10<  A,  12X  ) )' »  'TIME' »(  STRING( 1*1  )»I*1»M ) 
DO  1830  1=1 .NT 

PRINT  '( 3X» 10(  1E10.4.3X  ) )'  .  (UP< I,J»IG),J*1,M+1 > 

GO  TO  8015 

ELSEIF  (PLTYPE.EO.' OUTPUT  '  )  THEN 

PRINT  '</A /)'.  '  OUTPUT  DATA  MATRIX...' 

PRINT  '( 5X» A. 11X»10( A.12X ) )' »  ' TIME' ,( STRING( III  )»I=1 ,P ) 
DO  1835  1=1 .NT 

PRINT  '(3X.10(  1E10.4.3X  ) )' »  ( YP( I,J,IG),J=1,P+1 ) 

ELSE 

GO  TO  2126 
END  IF 

GO  TO  8015 


23650=c  ********************************************************************** 
23660=C  OPTION  *127 
23670=  2127  DO  1840  1=1, M 

23680=  PRINT  '  ' 

23690=  PRINT*,  'CONTROL  INPUT  #',I 

23700=  PRINT*.  '  MINIMUM  VALUE  IS  ' ,UMIN( I ) 

23710=  1840  PRINT*,  '  MAXIMUM  VALUE  IS  '.UMAX(I) 

23720=  GO  TO  8015 

23730=C  ********************************************************************** 


23740=C  ********************************************************************** 

23750=C  FORMAT  STATEMENTS 

23760=C  ********************************************************************** 

23770=  4075  FORMAT  (/IX, 'PLANT  MATRIX  A...'/) 

23780=  4080  FORMAT  (/IX, 'PLANT  MATRIX  B...'/> 

23790=  4095  FORMAT  (/IX, 'OUTPUT  MATRIX  C...'/> 

23800=  4100  FORMAT  (/IX, 'DIRECT  OUTPUT  MATRIX  D.,.'/> 

23810=  4110  FORMAT  < /IX,' MATRIX  G(0  )...'/) 

23820=  4115  FORMAT  (/'  MATRIX  A' ,25X, 'MATRIX  B' ,10X,'  MATRIX  C' ) 

23830=  4120  FORMAT  < 1X,1F10.4,23X,1F10.4,11X,1F10.4  ) 

23840=  4125  FORMAT  ( 1X,1F10.4,1X,1F10.4,12X,1F10.4,11X,1F10.4,1X,1F10.4) 

23850=  4130  FORMAT  < 3X,10(  1E10.4.3X  ) ) 

23860*C  - 

23870=  8015  IERR=0 
23880=  GO  TO  9015 
23890=  1995  IERR=43 
23900=  N0PT=N0PT+100 

23910*  9015  CONTINUE 
23920=  END 

23930=*E0F 
23940=*E0R 
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